Doppelten Code vermeiden?

[Mystic]

Delphi-Quellcode:

procedure blubb(b: boolean);
begin
  if ((b) and (irgendwas)) or ((not b) and (sonstwas)) then
  begin
    DoSomething();
    DoSomething();
    DoSomething();
    DoSomething();
    DoSomething();
    DoSomething();
    DoSomething();
    DoSomething();
  end;
end;