добавление в таблице

[CJartem]

надо дабавить в таблицу дату и суму..
procedure TForm2.Button1Click(Sender: TObject);
var x:integer;
y,u,i:string;
begin
x:=dblookupcombobox1.KeyValue;
y:=edit5.Text;
u:=edit6.Text;
i:=edit7.Text;
form1.Table1.Active:=false;
query1.Params[0].Value:=edit1.Text;
query1.Params[1].Value:=edit2.Text;
query1.Params[2].Value:=x;
query1.Params[3].Value:=edit3.Text;
query1.Params[4].Value:=edit4.Text;//на это ругается
query1.Params[5].Value:=strtodate(y);//на это ругается
query1.Params[6].Value:=strtodate(u);//на это ругается
query1.Params[7].Value:=strtodate(i);//на это ругается
query1.ExecSQL;
form1.Table1.Active:=true;
end;

но не работает когда забиваеш дату и суму..ругается
что делать пишет не правильный тип..что надо писать??