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
ShowMessage(FloatToStr(aux)); <- resultado de 3800 y no de 4
end;
Espero te sirva