1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);
  var
    Zahl: Integer;
begin
  Zahl := StrToIntDef(Value,-1);
  if (Zahl <> -1) then
    ShowMessageFmt('Es wurde die Zahl %d eingegeben!',[Zahl])
  else
    ShowMessage('Eingabe ist keine Zahl!');
end;