Hola
No te parece que a esta hora estas pidiendo demasiado
Creamos una variable global, osea donde esta:
Código Delphi
[-]var
Form1: TForm1;
a: integer;
implementation
Aqui recogemos el dato:
Código Delphi
[-]
ADOQuery1.Close;
ADOQuery1.SQL.Add('Select Max(id_numero) From venta');
ADOQuery1.Open;
a:= ADOQuery1.Fields[0].AsInteger;
Ahora lo tomamos:
Código Delphi
[-]ADOQuery2.Append;
ADOQuery2.FieldByName('dt_id').Value := a;
ADOQuery2.FieldByName('dt_nom').Value :=edit1.Text;
ADOQuery2.FieldByName('dt_can').Value :=edit2.Text;
ADOQuery2.Post;
Saludos