Feld auf Eingabe prüfen - ShowMessage geht nicht...

[uligerhardt]

Ich würde es so ähnlich machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c: Integer;
begin
  if TryStrToInt(Trim(EdAddi1.Text), a) and TryStrToInt(Trim(EdAddi2.Text), b) then
  begin
    c := a + b;
    SummeAddi.Text := IntToStr(c);
  end
  else
  begin
    ShowMessage('Geht nicht, du Schlauberger...');
  end;
end;

Sonst kannst du auch ktzftfgvulkgvbu und #@*!? addieren.