MessageDlg : Anzeigetext mit Datenbankfeldern - Code kürzen?

[Ines]

Hallo,

ich gebe in meinem Programm an verschiedenen Stellen Fehlermeldungen / Hinweistext
nach folgendem "Strickmuster" aus:

Delphi-Quellcode:

if MessageDlg('Der (Vor-/Nach)Name wurde geändert.' + #13#10#10 +
      'alter Eintrag :' + Patname_Oldvalue + ' ' + VName_Oldvalue +
      #13#10 + 'neuer Eintrag :' + SQL_PatientPATNAME.AsString +
      ' ' + SQL_PatientVNAME.AsString + #13#10#10 +
      'Soll diese Änderung rückgängig gemacht werden? ' + #13#10,
      mtWarning, [mbYes, mbNo], 0) = mrYes then....

Es ist möglich, einen Text als Konstante zu definieren, und dann den Code
folgendermasen zu verkürzen:

if MessageDlg (Ausgabetext,mtWarning,[mbYes,mbNo],0... Gibt es eine Möglichkeit eine Konstante o.ä. zu definieren und die variablen Teile
nachträglich einzutragen? Oder lös' ich das Problem mit einer Funktion?
Hintergrund: Der Code ist inzwischen sehr unübersichtlich - aber ich muß bei
verschiedenen Fehlern richtige Romane schreiben....!

Vielen Dank für Eure Hilfe
Ines