[angvelem]

пимерно так:

Код:

var
  sl : TStringList;
  I, J  : Integer;
begin
  for J := 0 to ListBox.Count - 1 do
  begin
    if ListBox1.Selected[i] then // выбираем только отмеченные
    begin
      sl := TStringList.Create;
      try
        sl.LoadFromFile('MyFile.txt');
        while True
        begin
         // проверяем, что в строке
         if начинается нужный текст then
           Break;
        end;
        sl.SaveToFile(MyFile_1.txt);
      finally
        sl.Free;
      end;
    end;
  end;
end;