Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var test : string;
begin
test := Edit1.Text;
if test = 'Test' then
ShowMessage ('Test');
end;
end.
das mit close ist egal, aber auch wenn ich versuche in ShowMessage auszugeben, funktioniert es nicht -.-