procedure TForm1.RemoveDuplicateString(var ASource: string);
var
  i: Integer;
begin
  for i:=Length(ASource) downto 1 do
  begin
    if i < Length(ASource) then
    begin
      if ASource[i] = ASource[i + 1] then
        Delete(ASource,i,1);
    end;
  end;
end;

@n3o_cybertech: iseng2 asal jadi aja, tercipta kode sperti ini :

procedure TForm1.RemoveDuplicateString(var ASource: string);
var
  i: Integer;
begin
  for i:=Length(ASource) downto 1 do
  begin
    if i < Length(ASource) then
    begin
      if ASource[i] = ASource[i + 1] then
        Delete(ASource,i,1);
    end;
  end;
end;

monggo klo ada yang lebih simple :) ubah karakter "&lt;" menjadi "<"

procedure TForm1.RemoveDuplicateStringV2(var ASource: string);
var
  i: Integer;
begin
  for i:=Length(ASource)-1 downto 1 do
    if ASource[i] = ASource[i + 1] then
      Delete(ASource,i,1);
end;

@mas_kofa: @n3o : itu kalo abjadnya urut...kalo gak urut begimano ayo....???

procedure TForm1.RemoveDuplicateString(var ASource: string);
var
  i,idx: Integer;
begin
  for i:= 1 to Length(ASource) do
  begin
    for idx := Length(ASource) downto i + 1 do
      if ASource[i] = ASource[idx] then
        Delete(ASource,idx,1);
  end;
end;