Stringoperation beim Combobox.item.add funzt nich

[LuCSteR]

okay so funktionierts:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  sDir, sHelp: 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
      begin
        sHelp:=slCountryList[i];
        Delete(sHelp, 4, 4);
        Form1.ComboBox1.Items.Add(sHelp);
      end;
  finally slCountryList.Free;
  end;

end;

bin scheinbar shcon ein wenig lang vorm rechner heute