Table does not reflect any changes

Hello,


I have two procedures in my program:


--- Cut ---
// This procedure changes "Completed"
procedure TForm1.dlCompleteProcess(ProcID:Integer);
begin
ZPutProcesses.Active := True;
if ZPutProcesses.Locate('ProcessID',ProcID,[]) = True then
begin
ZPutProcesses.Edit;
ZPutProcesses.FieldByName('Completed').AsBoolean := True;
ZPutProcesses.Post;
end;
ZPutProcesses.Active := False;
end;
--- Paste ---


Next procedure populates a string grid with data received from
the same table (Processes).


--- Cut --
procedure TForm1.dlListProcesses(Serial:String);
var WOID ,
intRow : Integer;
begin


if ZWorkOrder.Locate('WorkOrder',Serial,[]) = true then
begin


ZPutProcesses.Active := False;
ZPutProcesses.Active := True;


WOID := ZWorkOrder.FieldByName('WorkOrderID').AsInteger;


ZPutProcesses.Filter := 'WorkOrderID=' + IntToStr(WOID);
ZPutProcesses.Filtered := True;
ZPutProcesses.First;


ShortDateFormat := 'mm/dd/yy';
labStart.Caption :=
DateToStr(ZWorkOrder.FieldByName('Start').AsDateTime);


intRow := 1;
repeat
sgProcesses.Col := 0;


sgProcesses.Rows[intRow].Add(ZPutProcesses.FieldByName('ProcessName').AsStr­ing);

sgProcesses.Col := 1;
if ZPutProcesses.FieldByName('Completed').AsBoolean = True then
sgProcesses.Rows[intRow].Add('YES')
else
sgProcesses.Rows[intRow].Add('NO');
ZPutProcesses.Next;
Inc(intRow);
if ZPutProcesses.Eof <> True then sgProcesses.RowCount := intRow +
1;
until ZPutProcesses.Eof = True;


sgProcesses.Col := 0;
sgProcesses.Row := 1;


ZPutProcesses.Filter := '';
ZPutProcesses.Filtered := False;
ZPutProcesses.Active := False;
end
end;
--- Paste --


ZPutProcesses is TZTable; { descendant of regular TTable class }


First, I call dlCompleteProcess then I call dlListProcesses. The
problem is that table does not reflect any changes made by
dlCompleteProcess. I'm using ZEOS lib to connect my program to the
MySQL database tables. I would appreciate any comments, suggestions or
code samples.


Regards,
Koobel,

.