))) Мда...
Кидаешь на форму кнопку и эдит, затем кликаешь два раза по кнопке, нечто вроде
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
и дописываешь туда код
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
NumFloat: Double; // вещественный тип
NumInt: Integer; // целочисленный
begin
NumFloat := StrToFloat(Edit1.Text); // для вещественного
NumInt := StrToInt(Edit1.Text); // для целого
end;
Выбираешь то что нужно, запускаешь и радуешься)