[cerbernar]

Привет, решал давеча похожую задачу с использованием stringlist и CommaText.

Для корректной работы пришлось текст в кавычки заключить, а разделитель ",".

Может поможет

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  ts: tstringlist;
  S: string;
  Tf: Textfile;
begin
  Ts := Tstringlist.create;
  Assignfile(tf, 'путь_к_файлу');
  Reset(tf);
  ComboBox2.Items.Clear;
  ComboBox3.Items.Clear;
  while not eof(tf) do
   begin
    Readln(tf,S);
    Ts.CommaText := S;
    ComboBox2.Items.Add(Ts[0]);
    ComboBox3.Items.Add(Ts[1]);
   end;
  closefile(tf);
  ts.free;
end;

UPD
Чтобы прокатило с разделителем ":"

вместо Ts.CommaText := S; в коде выше вставить

Код:

    Ts.Delimiter := ':';
    Ts.DelimitedText := S;