[Delphi] tekst z parametrami [Przeniesiony z Programowanie :: Newbie]

Informacja dla zleceniodawcy!
Szanowny [imie] [nazwsko]
Informujemy cię że twój dysk [marka] o numerze seryjnym [serial_number] został odesłany do serwisu producenta.

var list:TStringList;
    s:String;
begin
  list:=TStringList.Create;
  list.LoadFromFile('plik.txt');
  s:=list.Text;

  s:=StringReplace(s, '[imie]', zmienna_z_imieniem, [rfReplaceAll,rfIgnoreCase]);
  s:=StringReplace(s, '[nazwisko]', zmienna_z_nazwiskiem, [rfReplaceAll,rfIgnoreCase]);

  list.Text:=s;
  list.SaveToFile('plik.txt');
  list.Free;
end;