1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

....

var
  Form1: TForm1;
  a,b,Ergebnis:Real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  a:= 5.43;
  b:= 4.23;
  Ergebnis:= a / b;
  Label1.caption := FloatToStr(Ergebnis);// Genau
  Label2.caption := FloatToStrF(Ergebnis,ffNumber,8,2);// Auf zwei Stellen gerundet
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
a,b,Erg: real;  //Exetendet, Currencey, ....
begin
a := 5,34;
b := 4,89;
Erg := a/b;
Label1.caption := Floattostr(Erg);
Label2.caption := formatfloat('0.00',erg); //Bis auf 2 Kommastellen anzeigen
end;