Загрузка в файлов

[HTTqp]

Не могу загрузить одновременно в ListView1 и ListView2 список файлов, то есть выполняю заполнение в ListView1 вот так:

{Получение списка файлов и информации о них}
procedure TForm1.UpdateFile;
var
Handle:THandle;
FindData:TWin32FindData;
temp_ext,result,Temp_Cap:String;
Folders:TStringList;
i,te:Byte;
begin
SetCurrentDir(dDir);
ListView1.Clear;
Handle:=FindFirstFile(PChar(dDir+'*'),FindData);
if Handle<>INVALID_HANDLE_VALUE then
 try
  Folders:=TStringList.Create;
  while FindNextFile(Handle,FindData) do
  begin
    Temp_Cap:=ExtractFileName(FindData.cFileName);
    temp_ext:=ExtractFileExt(FindData.cFileName);
    if (FindData.dwFileAttributes and faDirectory)=faDirectory then
     Folders.append('['+Temp_Cap+']') else
   with ListView1.Items.Add do   begin
    if (FindData.dwFileAttributes and faDirectory)<>faDirectory then
    begin
      for te:=1 to length(Temp_Cap) do
      if Temp_Cap[te]='.' then
      Caption:=copy(Temp_Cap,1,te-1);
      SubItems.Add(Copy(temp_ext,2,Length(temp_ext)-1));
      SubItems.Add(FloatToStrF(FindData.nFileSizeHigh+FindData.nFileSizeLow,ffNumber,18,0))
    end
      else SubItems.Add('');
      SubItems.Add(FileTimeToDateTimeStr(FindData.ftLastWriteTime));
      Result:='';
      if (FILE_ATTRIBUTE_ARCHIVE and FindData.dwFileAttributes)>0 then Result:=Result+'a' else Result:=Result+'-';
      if (FILE_ATTRIBUTE_READONLY and FindData.dwFileAttributes)>0 then Result:=Result+'r' else Result:=Result+'-';
      if (FILE_ATTRIBUTE_HIDDEN and FindData.dwFileAttributes)>0 then Result:=Result+'h' else Result:=Result+'-';
      if (FILE_ATTRIBUTE_SYSTEM and FindData.dwFileAttributes)>0 then Result:=Result+'s' else Result:=Result+'-';
      SubItems.Add(Result);
    end;
   end;
  for i:=0 to Folders.count-1 do with  ListView1.Items.insert(i) do
  begin
   SubItems.Add('[Папка]');
   Caption:=Folders[i];
  end;
  Folders.free;
  finally
  ListView1.Items.EndUpdate;
  end;
end;

Пытаюсь продублировать то есть для ListView2 таким же методом загрузку не получается, а если и получается то они одинаковы файлы что в ListView1 то и в ListView2, даже если указать чтобы грузилась другая дериктория.

[Stilet]

procedure TForm1.UpdateFile(Lv:TListView; aPath:String);

И везде в проце поменяй ListView1 на Lv. А так же припиши

Handle:=FindFirstFile(PChar(aPath+'*'),FindData);

И убери SetCurrentDir(dDir); вообще.
Вызывая эту процу передавай ей листвью, кой будет наполняться и путь.

[HTTqp]

Сделал как ты и сказал, но теперь проблема с вызовом процедуры. Делаю так:

procedure TForm1.FormActivate(Sender: TObject);
begin
UpdateFile; //  <- Вот тут ошибку
end;

Пишет ошибку:"not enough actual parameters"

[ZuBy]

Сообщение от HTTqp

Сделал как ты и сказал, но теперь проблема с вызовом процедуры. Делаю так:

procedure TForm1.FormActivate(Sender: TObject);
begin
UpdateFile; //  <- Вот тут ошибку
end;

Пишет ошибку:"not enough actual parameters"

Если сделал так

procedure TForm1.UpdateFile(Lv:TListView; aPath:String);

procedure TForm1.FormActivate(Sender: TObject);
begin
UpdateFile(ListView1, 'C:\'); 
UpdateFile(ListView2, 'D:\'); 
end;

[Stilet]

Сделал как ты и сказал

Нет, ты прочитал мой пост по диагонали и сделал по своему. Перечитывай внимательно еще раз до полного просветления.