wert vom falschen typ

[Delphi-Phil]

Hallo Zusammen,

bei mir kommt ein fehler den ich nicht zuordnen kann.

Ich habe ein screen im anhang.

Mein code sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var heute : String;
begin
heute := FormatDateTime('dd.mm',date)+'%';
ADOQuery1.Parameters.ParamByName('heute').Value := heute;
ADOQuery1.Open;
end;

Und der sql code von ADOQuery1 so:
SELECT firstname, lastname, birthdate FROM TBL_CONTACT WHERE birthdate LIKE :heute