[roman]

Código Delphi [-]
procedure Listas_de_codigos;
begin
  { Aquí el código que se repite }
end;

procedure ... caso1
 begin
  ...
  ...
  Listas_de_codigos;
  ...
  ...
 end;
 
 procedure ... caso2
 begin
  Listas_de_codigos;
  ...
  ...
  ...
  ...
 end;

No caería mal que te leyeras un libro con los conceptos básicos de programación estructurada.

// Saludos