Msg Box

[cell]

habe da ein Problem bzw Frage zu einer ShowMessage anweisung

Delphi-Quellcode:

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

leider kommt da immer ein Fehler
operator oder semikolon fehlt. es hat irgendwas mit dem frmmdichild, weiß aber nicht was !