[[maeyanes]]

Hola...

Tu error es por que nunca creas el objeto TLetras:

Código Delphi [-]
begin
  T := TLetras.Create(nil);
  try
    T.Numero := Query1.FieldByName('Importe').AsFloat;
    QRLabel3.Caption := T.AsString
  finally
    T.Free
  end
end;

Saludos...