casas decimais comtabelas paradox

oi, estou com problema nas casas decimais em paradox, fiz de tudo para colocar apenas duas casas decimais na tabela, mas em alguns casas tem valores com 16 casas decimais, alguém pode me ajudar, o código que uso está logo abaixo. Muito Obrigado

procedure TF_Importar.GravaReg(Lanc,Cont:Integer;
Conta1,Conta2,CodHist:String;Valor:Real;Data:TDateTime);
var
dec1, inteiro, valor2 : real;
dec2 : string;
begin

dec1 := Frac(Valor);
inteiro := Int(Valor);
dec2 := Copy(floattostr(dec1),1,4);
valor2 := inteiro + strtofloat(dec2);

Table1Valor.currency := True;
Table1.Append;
Table1[´Lancamento´] := StrZero(IntToStr(Lanc),6);
Table1[´Cont´] := Cont;
Table1[´Debito´] := Conta1;
Table1[´Credito´] := Conta2;
[color=red:d3c0558e99] Table1[´Valor´] := Valor2;[/color:d3c0558e99]
Table1[´Data´] := Data;
Table1[´Custo´] := Svl(CC.Text);

o erro está no campo em vermelho.