TEdit-Feld MUSS einen Wert enthalten!!

[City Light]

Hi Hansa!

Ich sitze noch immer dran!! was ich bisher erreicht ist das hier

Code:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text = '' Then
  if MessageDlg('Es wurden keine Eingaben gemacht'#13#10#13#10'Eingabe fortzetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
   begin
     Edit1.Enabled := False;
     Edit1.Color := ClBtnFace;
     Button1.SetFocus;
   end
   else
     Edit1.SetFocus;
end;