[[Caral]]

Hola
1-revisa que el dato del campo sea esa S
2-Si es asi y no la palabra completa ponlo asi:

Código Delphi [-]
var A : String;
begin
   // aqui se define si es entrada o salida dependiendo del combobox
   If combobox.text = 'Entrada' then
   begin
   A:= 'E';
   end
   else begin
   A:= 'S';
   end;
  query.Close;
  query.SQL.Text:='SELECT max(folio) FROM entradas where tipo = '+QuotedStr(A);
  query.Open;
  folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

o asi:

Código Delphi [-]
var A : String;
begin
   // aqui se define si es entrada o salida dependiendo del combobox
   If combobox.text = 'Entrada' then
   begin
   A:= 'E';
   end
   else begin
   A:= 'S';
   end;
  query.Close;
  query.SQL.Text:='SELECT max(folio) FROM entradas where tipo = '''+ A + '*''';
  query.Open;
  folio.text := IntToStr(query.FieldByName('folio').asInteger +1) ;

Vamos por partes amigo
Saludos