Contafono

Tengo el siguiente problema estoy haciendo un programa que
dado la hora inicial al hacer click vuelve a tomar las horas
las resta y da el tiempo total como un cronometro pero quiero
multiplicar esos minutos por un numero, ejemplo 10 minutos los
multiplico por 3.64 como numero entero o real(float), así si cada minuto vale
3,63 centavos me dan los centavos trascurridos 10 minutos
pero el resultado que me da me lo da en tiempo 0:0:36.4
al pasarlo de tiempo a cadena y de cadena a entero y luego de entero a cadena
y tratar de mostrarlo en un memo me lanza error me dice que el formato 0:0:36.4 no es un formato válido
de entero o flotante
¿Cómo lo puedo hacer?
Es para controlar el gasto telefónico.
Este es el código fuente
Memo 1 es la fecha
memo2 es el tiempo inicial
memo3 es el tiempo total trascurridos desde tiempo inicial
memo4 es el tiempo multiplicado por 3.64 para que me de en números
con el costo total de la llamada
begin
memo2.text:= TimeToStr(Time);
end;
procedure TForm1.cbtiempoClick(Sender: TObject);
var
cuenta:boolean;
tiempo:string;
begin
if cuenta=false then
begin
cuenta:=true
end
else
begin
memo3.text:=TimeToStr(StrToTime(memo2.text)-(Time));
tiempo:=timetostr(StrTotime(memo3.text)*0.064);
//la siguiente linea es la que no me funciona
memo4.text:=FloatToStr(StrToFloat(tiempo));
end;
end;