[Resolvido] Type mismatch in expression!

olá, olha eu aqui mais uma vez!

na execuçao da query esta dando este erro 'Type mismatch in expression!',

with dmfocal.Que_desp do
begin

 close;
 sql.Clear;
 sql.Add('select * from despesa');
 sql.Add('where datavenc >= :vdat1 and datavenc <= :vdat2');
 sql.Add('and tipo = :vtipo and situ = :vsitu');
 sql.Add('order by datavenc');
 ParamByName('vdat1').Value := me_datini.Text;
 ParamByName('vdat2').value := me_datfim.Text;
 ParamByName('vtipo').Value := tipo;
 ParamByName('vsitu').Value := situ;
 open;
 First;
 end;

desde já agradeço

Dorgival