1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function abfang1(Edit: TEdit): Boolean;
begin
  Result := True;

  MessageDlg('Bitte geben Sie einen gültigen Wert ein oder 0,0!',
    mtWarning,[mbOk], 0);

  Edit.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.text = '0' then if abfang1(edit1) then Exit;
  if edit2.text = '0' then if abfang1(edit2) then Exit;
  if edit3.text = '0' then if abfang1(edit3) then Exit;
end;