if (Tablas.BaseDatos.Connected)then
begin
Tablas.Query.Database:=Tablas.BaseDatos;
Tablas.Query.Transaction:=Tablas.Transaccion;
Tablas.Query.SQL.Text:=' select max (idcon) as MAXIMO from Tconfecciones';
Tablas.Query.Open;
Edit1.text:=Tablas.Query.FieldByName('MAXIMO').AsInteger;
End;