procedure TMyWin.RedoListBox; var aCheck : Check; pStr : pStrType; begin LB^.ClearList; if (not IsEmpty(CheckBook)) then begin FindFirst(CheckBook); Retrieve(CheckBook,aCheck); StrPCopy(pStr, aCheck.PayTo); LB^.AddString(pStr); while (not IsLast(CheckBook)) do begin FindNext(CheckBook); Retrieve(CheckBook,aCheck); StrPCopy(pStr, aCheck.PayTo); LB^.AddString(pStr); end; end; end;