procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    RendAl.Open;
    Rendal.Append;
    // Fill in fields
    Rendal.Post;

    RefreshQuery; // Closes/re-opens query on same table

    if not q.Locate('pKOD', RendAl.FieldByName('pkod').Value, [])
        then ShowMessage('Not found');

end;

---

 Comments

---

This issue was caused by the same issue as #3266, and was also introduced by the fix for incident #3256

---

 Resolution

---

Fixed Problem on 8/5/2010 in version 2.03 build 19

---

 Products Affected

---

ElevateDB Additional Software and Utilities
ElevateDB LCL Standard with Source
ElevateDB VCL Client-Server
ElevateDB VCL Client-Server with Source
ElevateDB VCL Standard
ElevateDB VCL Standard with Source
ElevateDB VCL Trial