ayuda con AdoDataSet su CommandText y una functions

[ContraVeneno]

Pues sí, el programa hace exatamente lo que le dices.

Tal vez esto sea lo que buscas:

Código Delphi [-]
procedure TANEXO1.F_INICIOChange(Sender: TObject);
begin
  Edit1.Text :=DateToStr( F_INICIO.DateTime +6 );
  Memo1.Lines.Clear;
  Memo1.lines.add('select * from ANEXO_1');
  Memo1.lines.add('where PAIS=' + QuotedStr(Combobox1.Text));
  Memo1.lines.add('and AREA=' + QuotedStr(AREA.Text) );
  Memo1.lines.add('and S_F_INICIO=#' + datetostr(f_inicio.DateTime) +'#');
  Memo1.lines.add('and S_F_FIN=#' + edit1.Text + '#'
  Memo1.lines.add('order by PAIS, FECHA_VTTO;');

Try
 AdoDataSet1.Close;
 AdoDataSet1.CommandText:=memo1.Text;
 AdoDataSet1.Active :=True;
 Except
 on E:Exception do begin
 Showmessage('Error en datos: '+E.ClassName+'-'+E.ErrorMsg);
 memo1.Lines.Add('error en datos')
 end;
end;