Stringoperation beim Combobox.item.add funzt nich

[LuCSteR]

Hi,

will einfach aus ner StringList die Items in eine Combobox kopieren, dabei aber vom jeweiligen Item die letzten 4 Zeichen abschneiden.

Delphi-Quellcode:

var
  i: integer;
  sDir: string;
  slCountryList: TStringList;

begin
  //determinates current directory
  sDir:=GetCurrentDir;
  sDir:=sDir+'\';

  slCountryList:=TStringList.Create;
  ListDirFiles(sDir+'country lists\', slCountryList);

  try
    for i:=0 to slCountryList.Count-1 do Form1.ComboBox1.Items.Add(Delete(slCountryList[i], 4, 4));
  finally slCountryList.Free;
  end;

end;

Beim Delete kommt halt der Error "unit1.pas(133,91) Error: Argument can't be assigned to". Ohne Delete funktioniert alles, aber sieht halt nicht wie erwünscht aus.
Idee wie das zu lösen ist?
Warum ist es nicht möglich die Delete-Funktion in dieser Kombination zu nutzen?

Grüße Lucster