Корень из числа

[pitonmc]

Помогите пожалуйста у меня выдает ошибку(((
var
Form1: TForm1;
Number : Integer;
Root : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Number :=0;
Root := 0;
Number := StrToInt(Trim(EdPlis.Text));
Root := Sqrt(Number);
Table.Lines.Add('Корень числа ='+IntToStr(Number)+ 'равен '+ IntToStr(sqrt(Number));
end;

end.

[IT-man]

должно быть

Root:double;

)))

[pitonmc]

Table.Lines.Add('Корень числа ='+IntToStr(Number)+ 'равен '+ IntToStr(Root));
Тут ошибка

[Пепел Феникса]

FloatToStr

[pitonmc]

Спасибо,очень помогло