Поиск файлов в delphi

[_PROGRAMM_]

Вот решил научиться искать файлы. Открыл "библию delphi". Там нашел пример структуры для FindFirst()

  PSearchRec = ^TSearchRec;
    TSearchRec = record
    Time : integer;// Время создание Файла
    Size : integer; // Размер файла
    Attr : integer; // Атрибуты
    Name : TFileName; // Имя
    ExcutAttr : integer; // Исключаемые атрибуты;
    FindHandle: THandle; // указатель нужный для поиска
    FindData: TWin32FindData; // Структура поиска файлов Windows;
    end;

Потом в OnShow формы прописал следующее.

procedure TFormPub.FormShow(Sender: TObject);
var
SearchRec:PSearchRec;
begin
if FindFirst('Ponarams\*.jpg', faAnyFile, SearchRec) = 0 then
repeat
ItemsKesh.Items.Add(SearchRec.Name);
until FindNext(SearchRec);
end;

Строка с ошибкой выделена красным в коде
Заранее спасибо

[D@rkD@iver]

SearchRec:TSearchRec;

[_PROGRAMM_]

SearchRec:TSearchRec;

procedure TFormPub.FormShow(Sender: TObject);
var
SearchRec:PSearchRec;
begin
if FindFirst('Ponarams\*.jpg', faAnyFile, SearchRec) = 0 then
repeat
ItemsKesh.Items.Add(SearchRec.Name);
until FindNext(SearchRec);
end;

Я когда лишнее из процедуры убирал, нечайно SearchRec:PSearchRec удалил. Если убрать SearchRec:PSearchRec, то он напишет, что нет такой структуры, а он с ней тоже не работает.
---- 14:17
Вот еще скриншот:

[Serge_Bliznykov]

вот же Вы путаник!
Ну Вам же постом выше сказали,
напишите так:

procedure TFormPub.FormShow(Sender: TObject);
var
  SearchRec:TSearchRec; 
begin
  if FindFirst('Ponarams\*.jpg', faAnyFile, SearchRec) = 0 then
  repeat
      ItemsKesh.Items.Add(SearchRec.Name);
   until (FindNext(SearchRec)<>0);
end;

и всё.
И забудьте о своём надуманном PSeacrhRec !!

[_PROGRAMM_]

вот же Вы путаник!
Ну Вам же постом выше сказали,
напишите так:

Не сообразил. Я думал, что объявить SearchRec в Var надо
Это, наверно, в библии delphi описовалась получаемая структура, а я создавать начал.
Спасибо