Работа со строками, заполнить компоненты строками из файла

procedure TForm4.SaveLetter; // процедура сохранения письма
var f:TextFile;
    s:string;
begin
  if Edit1.Text <> ''
    then
      begin
        AssignFile(f,'Save Message/'+Edit1.Text+' - '+DateTimeToStr(Date)+'.txt');
        Rewrite(f);
        Writeln(f,'Кому: '+ComboBox1.Text);
        Writeln(f,'Тема: '+Edit1.Text);
        Writeln(f,'Приоритет: '+ComboBox3.Text);
        Writeln(f,'Текст: '+Memo1.Text);
        Writeln(f,'Путь к файлу: '+Edit2.Text);
        CloseFile(f);
        MessageBox(Handle,'Файл сохранен в папку с программой.','Сохранение файла',MB_ICONINFORMATION);
      end
    else MessageBox(Handle,'Введите тему письма','Внимание!',MB_ICONERROR);
end;

var
  f : TextFile;
  s : String;
begin
  AssignFile(f, 'MyLetter.txt');
  Reset(f);
  Readln(f, s);
  ComboBox1.Text := Copy(s, Pos(s, 'Кому: ') + 7, Length(s));
  ReadLn(f, s);
  Edit1.Text := Copy(s, Pos(s, 'Тема: ') + 7, Length(s));
  ReadLn(f, s);
  ComboBox3.Text := Copy(s, Pos(s, 'Приоритет: ' + 12), Length(s));
  ReadLn(f, s);
  Memo1.Text := Copy(s, Pos(s, 'Текст: ' + 8), Length(s));
  ReadLn(f, s);
  Edit2.Text := Copy(s, Pos(s, 'Путь к файлу: ' + 15), Length(s));
  CloseFile(f);
end;