restar entre 2 tablas de mysql y mostrar en reporte

[edgar_prospero]

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;