procedure TForm1.quClientsAfterPost(DataSet: TDataSet);
var
  Param : TDBISAMParam;
begin
  with quUpdate do
  begin
    Close;
    Param := ParamByName('LAST_NAME');
    Param.AssignField(quClients.FieldByName('LAST_NAME'));
    Param := ParamByName('FIRST_NAME');
    Param.AssignField(quClients.FieldByName('FIRST_NAME'));
    Param := ParamByName('OLD_LAST_NAME');
    Param.AssignField(quClients.FieldByName('LAST_NAME'));
    Param.name := 'OLD_LAST_NAME';
    Param := ParamByName('OLD_FIRST_NAME');
    Param.AssignField(quClients.FieldByName('FIRST_NAME'));
    Param.name := 'OLD_FIRST_NAME';
    Param := ParamByName('IMAGE');
    Param.AssignField(quClients.FieldByName('IMAGE'));
    ExecSQL;
    end;
end;

---

 Comments and Workarounds

---

The workaround is to use AsString instead:

Param := ParamByName('IMAGE');
Param.AsString:=quClients.FieldByName('IMAGE').AsString

---

 Resolution

---

Fixed Problem on 7/18/2000 in version 2.04 build 1