[Resolvido] Criando botão de pesquisa

Ola eu peguei o codigo postado para outro membro mas o mesmo esta apresentando um problema. Preciso fazer uma pesquisa entre 2 datas.

"Project Project1.exe raised exception class EDBEngineError with message "Field in order by must be result set.'. Process stopped. Use Step or Run to continue."

Não sei se algo esta errado no codigo ou no meu programa mas se alguem puder me ajudar,

Obrigado!!

If DateTimePicker2.Date < DateTimePicker1.Date Then

begin

 ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!');

 DateTimePicker2.Date := DateTimePicker1.Date;

 end

Else

begin

 edit1.text:= DateToStr(DateTimePicker1.Date);

 edit2.Text:= DateToStr(DateTimePicker2.Date);

 Query1.Close;

 Query1.SQL.Clear;

 Query1.SQL.Add('SELECT Data, Nome, End');

 Query1.SQL.Add('FROM table1');

 Query1.SQL.Add('WHERE Data between ''' + DateToStr(DateTimePicker1.Date) + ''' and ''' + DateToStr(DateTimePicker1.Date) + '''');

 Query1.SQL.Add('ORDER BY Data');

 Query1.Open;

 DBGrid1.SetFocus

 end;