Problema con round()

[CFPA86]

Hola a todos y todas, tengo un problema al redondear un numero, tengo este codigo

Código Delphi [-]
 var
  Lcant : integer;
  GRegSisPromCon, GRegSisPromLts : string;
  aux :real;
  t : string;
 begin
  Lcant          := 19;
  GRegSisPromCon :=   '1000';
  GRegSisPromLts :=     '5';
  aux :=  Round(19 * 1000/5);  <----- normalmente de 3800
//  aux := round(Lcant * StrToInt(GRegSisPromCon)/ StrToInt(GRegSisPromLts));
//  Str(aux:2:0,t);
  ShowMessage(FloatToStr(aux)); <- resultado de 3800 y no de 4
 end;

Pero si lo hago en una forma sencilla de round(3.8) si me da el resultado de 4 que es lo que necesito, no lo hago asi ya que necesito de las formulas que me generan un resultado, espero que me comprendan y gracias

//Lo edito jhonny para colocar las etiquetas Delphi