Выскакивает ошибка

[Aleksandr]

дату я записываю

 MainForm.ADOTable1.FieldByName('Date_posting').AsString:=DateToStr(now);

Выше я прикреплял текстовый файл (с потоком.txt)

[Aleksandr]

Почему появляется пустое значение Date_posting если я ввожу данные

[ReportCube]

Наверное потому, что к разным таблицам обращаетесь
ADOTable1.Insert;
//MainForm.ADOTable1.Edit;

MainForm.ADOTable1...

[Aleksandr]

Так у меня ADOTable1 находится на этой же форме MainForm

[ReportCube]

Уберите из кода MainForm., под отладчиком посмотрите результаты присвоения в поля новых данных. Возможно, что происходит неверное присвоение даты/времени из-за форматирования строковых значений - попробуйте через AsDateTime

[Aleksandr]

Пробовал в синхронизацию помещал запись в базу данных

procedure TMainForm.CallTerminate3;
 var
     d3,d2: TDateTime;
 begin
zQuery1.SQL.Clear;
zQuery1.SQL.Add ('INSERT INTO base (Date_posting, Time_posting, num, Massa, Name, Image, Com, BaudRate, Organization, Location, IP, Note, Model, Equopment, Linkey, Stable_weight, Image_kamera)'
+' Values (:date1, :date2, 1, :massa, :name,''image'', :port, :BaudRate, :Organization, :Location, :Ip, :Note, :Model, :Equopment, :Linkey, 0, :adress)');
d3:=Trunc(Date);
d2:=frac(time);
zQuery1.Params.ParamByName('date1').Value:=d3;
zQuery1.Params.ParamByName('date2').Value:=d2;
//  IdThreadComponent3.Synchronize(CallTerminate3);
zQuery1.Params.ParamByName('massa').Value:=Edit3.Text;
zQuery1.Params.ParamByName('name').Value:=labelModel3.Caption+' '+LabelEquopment3.Caption;
zQuery1.Params.ParamByName('port').Value:=labelPort3.Caption;
zQuery1.Params.ParamByName('BaudRate').Value:=LabelBaudRate3.Caption;
zQuery1.Params.ParamByName('Organization').Value:=LabelOrganization3.Caption;
zQuery1.Params.ParamByName('Location').Value:=LabelLocation3.Caption;
zQuery1.Params.ParamByName('Ip').Value:=LabelIp3.Caption;
zQuery1.Params.ParamByName('Note').Value:=labelNote3.Caption;
zQuery1.Params.ParamByName('Model').Value:=labelModel3.Caption;
zQuery1.Params.ParamByName('Equopment').Value:=labelEquopment3.Caption;
zQuery1.Params.ParamByName('Linkey').Value:=labelLinkey3.Caption;
zQuery1.Params.ParamByName('adress').Value:=OptionForm.DirectoryEdit1.Text+'\NO.jpg';
zQuery1.ExecSQL;
 end;

[Aleksandr]

А вот код потока

procedure TMainForm.IdThreadComponent6Run(
  Sender: TIdCustomThreadComponent);

var str: String;
  S, S1,d1: String;
  s3:real;
  a,b:integer;
  i1,i2: Integer;
  r,m : double;
  i:integer;
  JpegIm: TJpegImage;
  bm: TBitMap;
  d3,d2: TDateTime;
  begin
//try

 MainForm.IdTCPClient3.Host :=MainForm.labelIP3.Caption;
    MainForm.IdTCPClient3.Port := StrToInt(MainForm.LabelPort3.caption);
    MainForm.IdTCPClient3.Connect(5000);
    MainForm.Memo3.Enabled := True; MainForm.Memo3.Color := clWindow;
    MainForm.AddLogWrite('Connect ...... ');
    MainForm.RzGlyphStatus4.ImageIndex:=3;
   Led0.Brush.Color := clBlue;
  try
          repeat
      Sleep(100);
         str:=MainForm.IdTCPClient3.Readln();
         if str<>'' then begin
           MainForm.Memo3.Lines.Add(str);

         //******************
          s1:=only_numbers(str);
   s1:=StringReplace(s1, '.',',' , [rfReplaceAll]);
 i1:=Pos(',',s1);
  if i1>0 then begin
    i2:=PosEx(',',s1,i1+1);
    if i2>0 then s1:=Copy(s1,1,i2-1)+Copy(s1,i2+1,Length(s1)-i2);
  end;
  r:=RoundTo(StrToFloatDef(s1,0),-2);
   MainForm.Edit3.Text:=Floattostr(r);
  if (r > 0) AND (r <> last_massa) then
  begin
   MainForm.edtNotes3.Text:=MainForm.edtNotes3.Text+MainForm.Edit3.Text +#9+TimeToStr(now) +#13#10;

  if strtofloat(MainForm.Edit3.Text)>strtofloat(OptionForm.RzEdit4.Text) then


begin

  IdThreadComponent3.Synchronize(CallTerminate3);
{
 MainForm.zQuery1.SQL.Clear;
MainForm.zQuery1.SQL.Add ('INSERT INTO base (Date_posting, Time_posting, num, Massa, Name, Image, Com, BaudRate, Organization, Location, IP, Note, Model, Equopment, Linkey, Stable_weight, Image_kamera)'
+' Values (:date1, :date2, 1, :massa, :name,''image'', :port, :BaudRate, :Organization, :Location, :Ip, :Note, :Model, :Equopment, :Linkey, 0, :adress)');
d3:=Trunc(Date);
d2:=frac(time);
MainForm.zQuery1.Params.ParamByName('date1').Value:=d3;
MainForm.zQuery1.Params.ParamByName('date2').Value:=d2;
MainForm.zQuery1.Params.ParamByName('massa').Value:=MainForm.Edit3.Text;
MainForm.zQuery1.Params.ParamByName('name').Value:=MainForm.labelModel3.Caption+' '+MainForm.LabelEquopment3.Caption;
MainForm.zQuery1.Params.ParamByName('port').Value:=MainForm.labelPort3.Caption;
MainForm.zQuery1.Params.ParamByName('BaudRate').Value:=MainForm.LabelBaudRate3.Caption;
MainForm.zQuery1.Params.ParamByName('Organization').Value:=MainForm.LabelOrganization3.Caption;
MainForm.zQuery1.Params.ParamByName('Location').Value:=MainForm.LabelLocation3.Caption;
MainForm.zQuery1.Params.ParamByName('Ip').Value:=MainForm.LabelIp3.Caption;
MainForm.zQuery1.Params.ParamByName('Note').Value:=MainForm.labelNote3.Caption;
MainForm.zQuery1.Params.ParamByName('Model').Value:=MainForm.labelModel3.Caption;
MainForm.zQuery1.Params.ParamByName('Equopment').Value:=MainForm.labelEquopment3.Caption;
MainForm.zQuery1.Params.ParamByName('Linkey').Value:=MainForm.labelLinkey3.Caption;
MainForm.zQuery1.Params.ParamByName('adress').Value:=OptionForm.DirectoryEdit1.Text+'\NO.jpg';
MainForm.zQuery1.ExecSQL;}
  last_massa := r;

  end;

 //***************************************
 end;
         end;
       until str='';

    finally
    MainForm.IdTCPClient3.Disconnect;

    MainForm.IdThreadComponent3.Stop;
    MainForm.Memo3.Enabled := False; MainForm.Memo3.Color := clBtnFace;
    MainForm.AddLogWrite('Disconnect ...... ');
    MainForm.RzGlyphStatus4.ImageIndex:=2;
      Led0.Brush.Color := clRed
     end;
end;