[MegaPiha]

Конечно будет ошибка. У вас d1 находится в кавычках, т.е. является для SQL запроса каким то текстом.
Можно так сделать, хотя может оно и не совсем правильно.

Код:

d1:=DateToStr(DateTimePicker2.Date);

with Form2.ADOQuery1 do begin
      close;
      SQL.Clear;
      SQL.Add('select *');
      SQL.Add('FROM Происшествие');
      SQL.Add('where');
      SQL.Add('Дата>='+ConvertDate(d1));
      Open;
end;

вводим дополнительную функцию.

Код:

Function ConvertDate(s:string):string;
begin
  ConvertDate:='#'+copy(s,1,2)+'-'+copy(s,4,2)+'-'+copy(s,7,4)+'#';
end;