Msg Box

[sakura]

begin...end nicht vergessen

Code:

procedure Tfrmmdichild.cmdbemerkungaendernClick(Sender: TObject);
var
   Bemerk: string;
begin
  if InputQuery('Bemerkung ändern','Bemerkung:',Bemerk) then
  [b]begin[/b];
    ShowMessage(Bemerk)[b];[/b]
    frmmdichild.mobemerkung.Lines.Append(Bemerk) // mit dem will ich den bemerk in ein Memo feld schreiben
  [b]end[/b]
  else
    ShowMessage('Leider nicht');
end;

......