Msg Box

[Igotcha]

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
         ShowMessage('Leider nicht');
end;

Gruß Igotcha