Tratamento em Percentual

 FormatFloat('###,###,0.00%',StrToFloat(Campo.Text));



Exemplo:
 if Edit1.Texte <> '' then begin
  Edit1.Text :=  FormatFloat('###,###,0.00%',StrToFloat(Edit1.Text));
end;