[Rudi]

otra forma es usar la función format, algo asi:

procedure TForm1.Button1Click(Sender: TObject);
var
  fecha : string;
const mensage ='Dar cita a %s el día %s';
begin
  fecha := datetostr(now);
  application.MessageBox (pchar(Format(mensage,[edit1.text, fecha])),'Confirmacion', MB_yesno + mb_iconquestion)
end;