Zahl aus Edit-Text-Feld einlesen

[Mirilin]

Code:

type
  datarec = record
    k1:integer;
    k2:integer;
    populat:integer;
    periods:integer;
    products:integer;
    strg_len:integer;
    delay:boolean;
    generat:longint;
    opt_gnr:longint;
    opt_ok:boolean;
    opt_take:boolean;
    opt_time : real;
    opt_fit : extended;
    opt_start: boolean;
  end;
...
procedure TMainForm.ButtonIntClick(Sender: TObject);
begin
  dr.generat := StrToInt(EditInt.Text);
end;

funktioniert bei mir : end vergessen.