procedure dialog_OnShow(Sender: Integer); var aText : String; begin aText := netEdit.Text; // Lese den Inhalt des Editfeldes aus Message_dlg(aText); // Zeige den ausgelesenen Inhalt am Bildschirm an end;