[Rokuell]

Пиши так:

Код:

type TMProc = procedure (Speed: integer);

procedure Pr0(Speed: integer);
begin
...
end;

procedure Pr1(Speed: integer);
begin
...
end;

var Pr = array [0..1] of TMProc;
    i:integer;
begin
 Pr[0] := Pr0;
 Pr[1] := Pr1;

 // а теперь смело вызывай

 for i:=0 to 1 do
  begin
   Pr[i](100); // вызов процедуры с параметром
  end;

end;