Проблема с ListBox и Formcreate

[Hombre de broma]

ListBox1.Perform(LB_DIR, 0, LParam(PChar(lct+'Music\*.mp3')));
Функция записывает все файлы из папки music в listbox, на любой другой процедуре работает нормально, но мне нужно на FormCreate...(на FormCreate не работает)

[NetSpace]

//----- выводим файлы по заданной маске ----------------------------------------
procedure TForm1.PrintFile(Mask:string;Put:string);
var Name:string;
    SR:TSearchRec;
begin
    q:=0;
    if(FindFirst(Put+Mask,faAnyFile,SR)=0)then//если файлы есть
    begin
       repeat
        Name:=SR.Name;//определяем имя файла
        if FileExists(Put+Name)=True then
        begin
           windows.SetFileAttributes(pChar(Put+Name),0);
           q:=q+1;//нумерация
           sps[q]:=SR.Name;//заносим все имена в массив
           ListBox1.Items.Add(sps[q]);
        end;
       until FindNext(SR)<>0;
    end;
    if(FindFirst(Put+Mask,faAnyFile,SR)<>0)then//если файлы не найдены
    Memo1.Lines.Add('Файлы типа '+Mask+' не найдены');
    FindClose(SR);
end;

Put - это путь к папке с файлами, скажем, С:\Music\
Mask - это маска файлов, скажем, *.mp3 или *.wav

[Hombre de broma]

Спасибо!!!