ayuda con TStringList

[ecfisa]

Hola n03l.

estoy trabajando con un TStringList el cual tengo la nesecidad de insertar palabras en la misma linea pero al final

Código Delphi [-]
procedure AgregarAlFinal(stLst: TStrings; Linea: Integer; Cad: string);
begin
   if Linea in [0..stLst.Count-1] then
    stLst[linea]:= stLst[linea] + Cad;
end;

Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
  i: Integer;
begin
  TS:= TStringList.Create;
  try
    for i:= 1 to 10 do TS.Add(IntToStr(i)+') '); // cargar unos valores...
    AgregarAlFinal(TS, 8, ' LINEA AGREGADA');  // Agregar al final de una línea determinada
    ListBox1.Items:= TS; // Mostrar en ListBox
  finally
    TS.Free;
  end;
end;

Saludos.