ZConnection:=TZConnection.Create(Self);
      ZConnection.User:='user';
      ZConnection.Password:='11112222';
      ZConnection.Database:='db_test';
      ZConnection.HostName:='192.168.1.152';
      ZConnection.LibraryLocation:='C:\Program Files (x86)\MySQL\MySQL Server 5.7\lib\libmysql.dll';
      ZConnection.Port:=3307;
      ZConnection.Protocol:='mysqld-5';
      ZConnection.Connected:=True;


      ZQuery:=TZQuery.Create(Nil);
      ZQuery.Connection:=ZConnection;


      ZQuery.SQL.Clear;
      ZQuery.SQL.Add('Select * from  test_table limit 0,1');



       ZQuery.Open;

       CreateGUID(MyGUID);
       Str_MyGUID:=GUIDToString(MyGUID);  // P_Key
       Delete(Str_MyGUID,1,1);
       Delete(Str_MyGUID,37,1);


      ZQuery.Append;

      ZQuery.FieldByName('record_id').AsString:=Str_MyGUID;
      ZQuery.FieldByName('unix_timestamp').AsInteger :=DateTimeToUnix(Now)-10800;
      ZQuery.FieldByName('time_begin').AsInteger :=DateTimeToUnix(Now)-10800;
      ZQuery.FieldByName('room_id').AsString:='6D4E0BC7-4265-41B9-8DE6-A6C54B28805E';

      ZQuery.Post;


      ZQuery.EmptyDataSet;


      ZQuery.Close;
      ZQuery.Free;

      ZConnection.Connected:=False;
      ZConnection.Free;

Try

      AConnection:=TADOConnection.Create(Nil);
      AConnection.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=My_SQL;Initial Catalog=db_video';
      AConnection.Connected:=True;


      AQuery:=TADOQuery.Create(Nil);
      AQuery.Connection:=AConnection;


      AQuery.SQL.Clear;
      AQuery.SQL.Add('Select * from  record_table limit 0,1');

       AQuery.Open;

       CreateGUID(MyGUID);
       Str_MyGUID:=GUIDToString(MyGUID);  // P_Key
       Delete(Str_MyGUID,1,1);
       Delete(Str_MyGUID,37,1);


      AQuery.Append;

      AQuery.FieldByName('record_id').AsString:=Str_MyGUID;
      AQuery.FieldByName('unix_timestamp').AsInteger :=DateTimeToUnix(Now)-10800;
      AQuery.FieldByName('time_begin').AsInteger :=DateTimeToUnix(Now)-10800;
      AQuery.FieldByName('room_id').AsString:='6D4E0BC7-4265-41B9-8DE6-A6C54B28805E';

      AQuery.Post;


      AQuery.Close;
      AQuery.Free;

      AConnection.Connected:=False;
      AConnection.Free;




      Str_MyGUID:='';

        Except
          Unit3.Err_Count:=Unit3.Err_Count+1;
          Form3.Label1.Caption:='DB_Err='+IntToStr(Unit3.Err_Count);

        End;