Iz Edita u Label

Da li je moguce u primeru kada se pretisne na Button da se pojavi text iz Edita u Label (u labelu da bude zadat format). Kada se u Edit upise "100" da se u labelu pojavi "100,00", a kada se upise "100,5" u labelu da se pojavi "100,50".

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := edit1.Text;
end;

Naravno

Label1.caption:=RoundTo(StrToFloat(edit1.text),-2)

mala prepravka:



jer je potrebno u Label upisati string a nije moguce podatak tipa float.

Hvala Vam na odgovoru

Da, u pravu si.
Tek sam bio ustao pa mi bas mozak nije postigao radnu temperaturu. :(

Da li mozete malo preciznije da mi objasnite ovo kod mene ne funkcionise, probao sam oba primera ali mi pojavljuje istu gresku:

[Error] Unit1.pas(38): Undeclared identifier: 'RoundTo'

RoundTo ti je deklarisano u Math unit-u, znaci, odskrolujes se na vrh koda i u Uses dodas Math. Ovo si mogao da saznas tako sto kursor stavis na RoundTo, pritisnes F1 i sve ti se samo kaze

Eeee pa to ti nece raditi. Sad tek videh. floattostr nece da zaokruzi tacno na 2 mesta, nego na sto manji broj. Koristi ti lepo format iz unita SysUtils.
Vidis sta se desava kad gledam povrsno. Oko jedne linije mi napisasmo celu knjigu.

label1.caption:=format('%10.2f',[strtofloat(edit1.text)]);

Hvala Vam jose jednom.
Radi sto je bitno.