// cria uma string com n caracteres
function IncStr( Str: String; Qtd: Integer ): String;
var v_Str: String;
begin
  v_Str := Str;
  While Length( SysUtils.Trim( Str ) ) < Qtd do
    Str := v_Str+ SysUtils.Trim(Str);
  // Retorno da Funcao.
  Result := Str;
end;

Produto    
    
Disco rigido  Samsung SATA 2 1TB 5400RPM                        R$ 183,00
Disco rigido  Samsung SATA 2 320GB P/NOTE 5400RPM               R$ 146,00
DVD-RW LG GH22NS50 SATA                                         R$ 50,00
DVD-RW LG SECURDISC IDE - Preto                                 R$ 70,00
Fone de Ouvido Philips - SHP2700/00                             R$ 83,00
Fonte Coletek ATX LC-8220BS2 200W 20+4 SATA                     R$ 38,00
Fonte Kmex ATX PX-300RMF 200W 20+4 SATA                         R$ 37,00
Fonte Kmex ATX PX-350RNF 230W 20+4 SATA                         R$ 39,00

var
  list: TStringList;
begin
  list := TStringList;
  try
    list.Add( 'Testando' );
    ListBox1.Items.Assign( list );
  finally
    list.free;
  end;

function DelStr(S, busca : String): String;
var
  n : Integer;
Begin
  For n := Length(S) downto 1 do
  Begin
    If copy(S, n, 1) = busca Then
      delete(S, n, 1);
  end;
  Result := S;

//procedure para aguardar um determinado tempo - não trava o programa como o sleep
procedure Delay(MSec: Cardinal);
var
  Start: Cardinal;
begin
  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until (GetTickCount - Start) >= MSec;
end;

Pressione as teclas: Win+R 
 
Digite: %AppData%\uTorrent

Instalando o IndyTiburon ( Windows 7 - Delphi 2010 Version 14.0.3615.26342 )
 
conceda permissão para "Todos" nas pastas da IndyTiburon.
 
menu tools >> options
  delphi options >> library win32
  library path = C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\lib\IndyTiburon\Lib\System
  library path =C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\lib\IndyTiburon\Lib\Core
  library path=C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\lib\IndyTiburon\Lib\Protocols