Еxception class EConvertError with message: '2014-01-01' is not a valid date

procedure TFormContract.Oplata ();
var i,i1, i2, i3, ii:integer;
    dog, kod_c, k1 :array[0..100] of variant;
    dat_opl, d1: array[0..100] of string;
    dat:array[0..100] of Tdate;
begin
   //выбираем все договора
   datamodule2.Dogovor.Close;
   datamodule2.Dogovor.SQL.Clear;
   datamodule2.Dogovor.SQL.Add('select kod_cont');
   datamodule2.Dogovor.SQL.Add('from Contract');
   datamodule2.Dogovor.Open;
    i3:=0;
    for i:=1 to datamodule2.Dogovor.RecordCount do begin
     dog[i]:= datamodule2.Dogovor.FieldValues['kod_cont'];
     LB.Items.Add((dog[i]));
 
     //определяем есть ли оплаты по данному договору
     datamodule2.Oplata.Close;
     datamodule2.Oplata.Parameters.AddParameter.Name:='dogovor';
     datamodule2.Oplata.SQL.Clear;
     datamodule2.Oplata.SQL.Add('select n_payment,date_payment, kod_cont');
     datamodule2.Oplata.SQL.Add('from Contract,Payment');
     datamodule2.Oplata.SQL.Add('where Contract.n_contract = Payment.n_contract');
     datamodule2.Oplata.SQL.Add('and');
     datamodule2.Oplata.SQL.Add('Contract.kod_cont = :dogovor');
     datamodule2.Oplata.Parameters.ParamByName('dogovor').Value:=dog[i];
     datamodule2.Oplata.Open;
 
     //если есть закрепления
     koll:=datamodule2.Oplata.RecordCount;
     if datamodule2.Oplata.RecordCount <> 0 then
 
       for i1:=1 to DataModule2.Oplata.RecordCount do begin
        if i1=koll then  dat_opl[i3]:=datamodule2.Oplata.FieldValues['date_payment'];
       end;  i3:=i3+1;
 
     datamodule2.Dogovor.Next;   
   end;
 
   //выбираем все данные по договорам
 
   datamodule2.VseDog.Close;
   datamodule2.VseDog.Parameters.AddParameter.Name:='d';
   datamodule2.VseDog.Parameters.AddParameter.Name:='k';
   datamodule2.VseDog.SQL.Clear;
   datamodule2.VseDog.SQL.Add('select Contract.kod_cont,Contract.date_cont,Payment.date_payment,Klients.name');
   datamodule2.VseDog.SQL.Add('from Contract,Payment,Klients');
   datamodule2.VseDog.SQL.Add('where Contract.n_contract = Payment.n_contract');
   datamodule2.VseDog.SQL.Add('and');
   datamodule2.VseDog.SQL.Add('Contract.klient_cont = Klients.n_klient');
   datamodule2.VseDog.SQL.Add('or (Contract.kod_cont = :k and Payment.date_payment= :d)');
   for ii:=1 to i-1 do begin
     datamodule2.VseDog.Parameters.ParamByName('d').Value:= StrtoDate(dat_opl[ii-1]);
     datamodule2.VseDog.Parameters.ParamByName('k').Value:= dog[ii];
    end;   
   Showmessage(datamodule2.VseDog.SQL.Text);
   datamodule2.VseDog.Open;
end;

---------------------------
Debugger Exception Notification
---------------------------
Project DPv1.exe raised exception class EConvertError with message ''2014-01-01' is not a valid date'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

dat_opl

datamodule2.Oplata.Next;