IP deki bir klasör içindeki dosyaları listeleme nasıl?

[Javs]

 Server

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ScktComp, StdCtrls;

type
 TForm1 = class(TForm)
   ServerSocket1: TServerSocket;
   Memo1: TMemo;
   procedure FormCreate(Sender: TObject);
   procedure ServerSocket1ClientRead(Sender: TObject;
     Socket: TCustomWinSocket);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Active:=False;
ServerSocket1.Port:=20000;
ServerSocket1.Active:=True;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
begin
 Memo1.Clear;
 Memo1.Lines.Add(Socket.ReceiveText);
end;

end.

Client

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ScktComp, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   ClientSocket1: TClientSocket;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

Procedure FindFiles(const Path, Mask: string; IncludeSubDir: boolean; Out List:TStringList);
var 
 FindResult: integer; 
 SearchRec : TSearchRec; 
begin 
 FindResult := FindFirst(Path + Mask, faAnyFile - faDirectory, SearchRec); 
 while FindResult = 0 do 
 begin 
   { do whatever you'd like to do with the files found } 
   List.Add(Path + SearchRec.Name); 
   FindResult := FindNext(SearchRec); 
 end; 
 { free memory } 
 FindClose(SearchRec); 
 if not IncludeSubDir then 
   Exit; 
 FindResult := FindFirst(Path + '*.*', faDirectory, SearchRec); 
 while FindResult = 0 do 
 begin 
   if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then 
       FindFiles (Path + SearchRec.Name + '\', Mask, TRUE,List); 
   FindResult := FindNext(SearchRec); 
 end; 
 { free memory } 
 FindClose(SearchRec); 
end;

procedure TForm1.Button1Click(Sender: TObject); //Bağlan Butonu
begin
ClientSocket1.Active:=False;
ClientSocket1.Port:=20000;
ClientSocket1.Host:='192.168.2.53';
ClientSocket1.Active:=True;
end;

procedure TForm1.Button2Click(Sender: TObject); //Gönder Butonu bunu bir timer içine alıp belirli periyodlarda Listeyi gönderebilirsin.
var
liste:TStringList;
i :integer;
begin
   liste:=TStringList.Create;
   //FindFiles(GetCurrentDir+'\','*.wmv',False,liste);
   FindFiles('D:\deneme\','*.wmv',False,liste);
   for i:=1 to liste.Count do
   begin
   ClientSocket1.Socket.SendText(liste[i-1]);
   end;
   liste.Free;
end;                                                

end.

Kendimce birşeyler karaladım umarım iş görür. Kolay gelsin.