¿Cómo "sacar" la existencia de un producto?

[ecfisa]

Hola Yare.

Uso componentes: Ttable y Tdatasource en el Data Module..

Ahora vamos mejor... Sabiendo que estas usando BDE, la sintáxis de la consulta para un TQuery cambia un poco:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with Tu_Query do
  begin
    DataSource:= dsVentas; // TDataSource asociado a tabla VENTAS
    Close;
    SQL.Clear;
    SQL.Add('SELECT "COMPRAS".CANTIDAD - "VENTAS".CANTIDAD AS STOCK');
    SQL.Add('FROM COMPRAS , VENTAS');
    SQL.Add('WHERE "COMPRAS".CODIGO_BARRAS = "VENTAS".CODIGO_BARRAS');
    SQL.Add('AND "VENTAS".CODIGO_BARRAS = :CODIGO_BARRAS'); // (*)
    Open;
  end;
  DBEdit1.DataSource:= dsQuery;
  DBEdit1.DataField := 'STOCK';
end;

Saludos.