Delphi-Quellcode:
procedure TForm1.Button1Click(...);
var
i,j,k,l: Integer;
begin
...
DeineProcedure(i,j,k,l);
...
end;
procedure TForn1.DeineProcedure(Zahl1,Zahl2,Zahl3,Zahl4: Integer);
begin
...
end;
Du rufst die Procedure "DeineProcedure" in der Procedure "Button1Click" auf.
Edit: Dein Ziel ist ja die Anzahl der Zeilen zu reduzieren. Deswegen lagert man die Prozeduren ja aus.