Konstantenobjekt kann nicht als var-Parameter weiter...

[Tormentor32]

Hi Leute!

Ich habe folgenden code und den oben beschrieben feheler, und ich möchte wissen, warum dies ein Konstantenobjekt ist

Delphi-Quellcode:

type
  TSection = class (Tobject)
  public
    FZeilen: array of string;
    FName,FType: string;
    procedure show(LBX: TListbox);
  end;


procedure SwapSections(var s1,s2: Tsection);
var tmpSection: TSection;
begin
  tmpSection := s1;
  s1 := s2;
  s2 := tmpSection;
  tmpSection.free;
end;

//beim Aufruf kommt der fehler


SwapSections(FSong.GetSectionByName(combobox.Text),FSong.FSections[i]);

Was muss ich tun, damit ich den Aufruf so machen kann?

gruß richard