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;