Formatar Numero

Fala Galeraaa.

ME ajudem ai :


Tenho uma função que calcula uma media de uns treinamentos do meu sistema

if qtd <> 0 then begin
media := 0;
DM.cds_media.first;
while not DM.CDS_media.eof do begin
media := media + StrToFloat(DM.cds_media.fieldByName(´nota´).asstring);
DM.CDS_media.next;
end;
media := media/qtd;
media.Caption:= floatTostr(media);

o Valor dependendo do resultado sai assim 5,2356545654545457789

eu quero que esse txt meu media.caption receba o valor com duas casas somente assim 5,2.

Como eu faço isso ????

ja tentei varios Format aqui mas não está dando certo.