[zip000]

Код:

var
  i : Integer;
............
  i := StrToInt(Edit1.Text);