Msg Box

[Olli]

Hinter "ShowMessage(Bemerk)" gehört ein Semikolon.

Außerdem solltest du den IF- und den ELSE-Block aber immer in BEGIN-END stecken. Ist guter Stil und vereinfacht Codeerweiterungen. Hier in diesem Fall ist es sogar unabdingbar.

Für den Service am Kunden :

Delphi-Quellcode:

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