[-=DaNTe=-]

Такое дело мне надо загрузить в ListBox строки содержащиеся в файле но только от color name='"сюда"

Код:

procedure TForm1.modelChange(Sender: TObject);
   var
   fWayName: String;
   fWay: String;
  fName: String;
  f: TextFile;
  buf: String;
begin
sWinDir:=ExtractFilePath(paramStr(0));
MapsPath:=sWinDir+'\Maps\';
   fName:=SearchRec.Name;
   fWayName:=MapsPath+fName;
   AssignFile(f, fWayName);
   try
   reset(f);
   except
   on EInOutError do
begin
   ShowMessage('Ошибка доступа к файлу');
   exit;
end;
end;
while not Eof(f) do
begin
   как быть сдесь мне не нужно все данные с строки
   readln(f, buf);
   colorlist.Items.Add(buf);
end;
end;

Admin: Пользуемся тегами!