restar entre 2 tablas de mysql y mostrar en reporte

[edgar_prospero]

pues seras novato como dices pero me has echado mucho la mano amigo, ya pude hacer que no me marcara error el problema me sale por la parte de max(folio), lo cmabie por el siguiente codigo no me marca error pero en folio siempre me pone uno aunque tenga 10 siempre es 1

Código Delphi [-]
If combobox1.text = 'Entrada' then  
   begin
   A:= 'E';
   end
   else begin
   A:= 'S';
   end;
  query.Close;

  query.SQL.Text:='SELECT folio FROM entradas where tipo = '''+ A + '*'' ';
  query.Open;
  folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;