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

[mkinzler]

Der Fehler tritt auch vorher beim StrToInt() auf.
Versuch es besser so:

Delphi-Quellcode:

procedure TForm1.BtnAddiClick(Sender: TObject);
var
    a, b, c : Integer;
begin
a:=StrtoIntDef (EdAddi1.Text, 0);
b:=StrToIntDef (EdAddi2.Text, 0);

if (Trim(EdAddi1.Text)='') or (Trim(EdAddi2.Text)='') then
begin
    ShowMessage('Geht nicht, du Schlauberger...');
end
Else
begin
    c:=a+b;
    SummeAddi.Text:=InttoStr (c);
end;
end;