...
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
v: array[1..3] of PChar;
i: integer;
begin
v[1]:='c:\archivo1.txt';
v[2]:='c:\archivo2.txt';
v[3]:='c:\archivo3.txt';
for i:= 1 to 3 do
ShellExecute(Handle, 'open', v[i], nil, nil, SW_SHOWNORMAL);
end;