[jhonny]

No entiendo porque abría de darte 4 cuando siempre estas multiplicando y dividiendo por los mismos valores...

Pero mas sin embargo y por encima de lo que alcanzo a entenderte te faltaria dividir por 1000 asi:

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)/1000);  <----- 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;

Espero te sirva