СС
Сергей Семёнов
нужно все, и цикл и процедура.
with TOpenDialog.Create(nil) do try
if not Execute then Exit;
for i:=0 to Files.Count-1 do
///Вызываете процедуру обработки и обрабатываете файл
finally
Free;
end;