procedure TForm18.cxGrid2DBTableView1Zav_NomerPropertiesEditValueChanged(
  Sender: TObject);
begin
if(ADOQuery5.Active)
  then ADOQuery5.Close;
    ADOQuery5.SQL.Clear;
    ADOQuery5.SQL.Add('select Date1=CASE WHEN EXISTS (Select Date_PSI from Kartochka where Naimenovanie='''+ADOTable1.FieldByName('Naimenovanie').AsString+''' and Dec_Nomer='''+ADOTable1.FieldByName('Dec_Nomer').AsString+''' and Zav_Nomer='''+TcxTextEdit(Sender).Text+''') THEN (Select Date_PSI from Kartochka where Naimenovanie='''+ADOTable1.FieldByName('Naimenovanie').AsString+''' and Dec_Nomer='''+ADOTable1.FieldByName('Dec_Nomer').AsString+''' and Zav_Nomer='''+TcxTextEdit(Sender).Text+''') ELSE (Select TOP 1 Date_Proizv from Dannie_VK where Naimenovanie='''+ADOTable1.FieldByName('Naimenovanie').AsString+''' and Dec_Nomer='''+ADOTable1.FieldByName('Dec_Nomer').AsString+''' and Zav_Nomer='''+TcxTextEdit(Sender).Text+''') END');
      try
        ADOQuery5.Open;
      finally
        ADOTable1.FieldByName('Date_Proizv').AsDateTime:=ADOQuery5.FieldByName('Date1').AsDateTime;
      end;
end;

ADOTable1.FieldByName('Date_Proizv').AsDateTime:=ADOQuery5.FieldByName('Date1').AsDateTime;

TcxTextEdit(Sender).Text