Открытие файла из папки

PathToFiles:='C:\Temp\';
for i:=1 to 3 do
begin
s:= PathToFiles + IntToStr(i)+ '\' + IntToStr(i)+'.doc';
// код открытия файла
end;

var
   f: TextFile;
   St: String;
   List:TStringlist;
   row,i:integer;
   begin
list:=TStringList.Create;
list.Clear;
if not OpenDialog1.Execute then
     begin
     MessageDlg('Файл не открыт.',mtError,[mbOk],0);
     Exit;
     end;
AssignFile(f, OpenDialog1.FileName);
Reset(f);
List.Delimiter:=',';
row:=0;
while not Eof(f) do
  begin
  ReadLn(f, St);
  List.DelimitedText:=st;
  for i:=0 to (List.Count-1) do
      StringGrid1.Cells[i,row]:=list.Strings[i];
  inc(row);
  end;
CloseFile(f);
end;

DirectoryListBox1.MultiSelect:=true;

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
For i:=0 to DirectoryListBox1.Count-1 do
if DirectoryListBox1.Selected[i] then ListBox1.Items.Add(DirectoryListBox1.Items[i]);
end;

DirectoryListBox1.MultiSelect:=true;

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
For i:=0 to DirectoryListBox1.Count-1 do
if DirectoryListBox1.Selected[i] then ListBox1.Items.Add(DirectoryListBox1.Items[i]);
end;