Como puedo calcular Stock ...

[[Caral]]

Hola
Es que como no tengo nada de lo que tu tienes a la mano solo puedo creer que dara resultado.
Prueba quitando cosas:

Código Delphi [-]
procedure TFstock.FormShow(Sender: TObject); 
var cadena,vartext1 : string; 
begin 
while not dm1.TBLEnvases.eof do 
Begin dm1.Qtemp.SQL.clear; 
dm1.Qtemp.SQL.Text := 'Select DISTINCT ingre.codenvases, (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock '+ 
      ' From Ingre, Egresos where ingre.codenvases = ' +  dm1.TBLEnvases.FieldByName('codigo').AsString ; 
dm1.Qtemp.open; 
end; 
end;

o asi:

Código Delphi [-]
procedure TFstock.FormShow(Sender: TObject); 
var cadena,vartext1 : string; 
begin 
while not dm1.TBLEnvases.eof do 
Begin dm1.Qtemp.SQL.clear; 
dm1.Qtemp.SQL.Text := 'Select DISTINCT (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock , ingre.codenvases '+ 
      ' From Ingre, Egresos where ingre.codenvases = ' +  dm1.TBLEnvases.FieldByName('codigo').AsString ; 
dm1.Qtemp.open; 
end; 
end;

Solo puedo imaginar lo que sucede.
Saludos
PD: Ademas no le puedes pedir mucho a este Novato, que esta para aprender.