pues como no logro hacer qe me quede estoy intentando otra cosa que pongo a continuacion pero nomas me funciona una vez al cargar el form el combobox esta en entradas y el nuemro de folio que le corresponde al mover el combobox a salidas el nuemro de folio se cambia al que le corresponde pero nomas esa vez me funciona si le vuelvo a poner en entradas ya nose mueve folio:
Código Delphi
[-]procedure TForm4.ComboBox1Change(Sender: TObject);
begin
if (ComboBox1.Text='ENTRADA') THEN
begin
query.Close;
query.SQL.Text:='SELECT folio FROM entradas ORDER BY folio desc LIMIT 1';
query.Open;
folio.text := IntToStr(query.FieldByName('folio').asInteger +1);
end
else begin
if (ComboBox1.Text='SALIDAS') THEN
query.Close;
query.SQL.Text:='SELECT folio2 FROM entradas ORDER BY folio2 desc LIMIT 1';
query.Open;
folio.text := IntToStr(query.FieldByName('folio2').asInteger +1) ;
end;