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;