Problem mit Großen Zahlen

[Viperb0y]

Also, ich habe ein Problem:

Hier:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
zahl123: double;
begin
zahl123 := strtoint(LabeledEdit1.Text);
if zahl123>1000000000
then begin
ShowMessage('Diese Zahl ist zu hoch!');
exit;
end;
end;

Das problem ist; wenn die zahl ÜBER 1000000000 stürzt das proggie ab und sagt: wert ist kein gültiger integer wert!

Gibt es etwas umd das zu ändern?