aus einer Liste Einträge in eine andere Liste verschieben

[DeddyH]

Und damit es auch komplett hier steht, die Alternative:

Delphi-Quellcode:

procedure fooNsafe;
var
  bar1 : TBar1;
  bar2 : TBar2;
begin
  //Verschachteln der Ressourcenschutzblöcke
  bar1 := TBar1.Create;
  try
    bar2 := TBar2.Create;
    try
      // work on bars
    finally
      bar2.Free;
    end;
  finally
    bar1.Free;    
  end;
end;