opendialog как открить несколько файлов?

[2Slide]

Подскажите как с помощью OpenDialog открыть несколько файлов?
Свойство ofAllowMultiselect=True.

if OpenDialog1.Execute then
   for i:=1 to ??
     ComboBox1.Items.Add(??)

[mihali4]

А стандартным хэлпом Delphi религия пользоваться не позволяет?
Там есть прекрасный пример:

procedure TForm1.Button1Click(Sender: TObject);

var
  I: integer;
  F: TextFile;
  FirstLine: string;
begin
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';
  OpenDialog1.FilterIndex := 2; { start the dialog showing all files } 
  if OpenDialog1.Execute then
    with OpenDialog1.Files do
      for I := 0 to Count - 1 do
      begin
        AssignFile(F, Strings[I]);  { next file in Files property }
        Reset(F);
        Readln(F, FirstLine);  { Read the first line out of the file }
        Memo1.Lines.Append(FirstLine);  { Add the line to the memo }
        CloseFile(F);
      end;
end;

[2Slide]

Спасибо! Недодумал - тупонул))))