Habe hier im Büro kein Delphi zur Verfügung, insofern nur so "aus dem Kopf heraus"...
Delphi-Quellcode:
procedure DeleteSingleItems(var List:TStringList);
var Idx : Integer;
begin
Idx:=1;
while Idx<List.Count-2 do
if (List[Idx-1]<>List[Idx]) and
(List[Idx+1]<>List[Idx]) then List.Delete(Idx)
else inc(Idx);
end;