wiederholungen zusammenfassen?

[pilic]

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.