Classe com busca em um Tstringlist...

Pessoal

Preciso fazer isso

- Criar uma classe que contenha um campo StringList
- No create da classe o campo deverá receber uma lista de valores
- Deverá conter um método que retorne a string de acordo com o índice passado por parâmetro
- Deverá conter outro método que retorne a lista inteira verificando uma chave no registro, que se for 0 retornará a lista normal se for diferente de 0 retornará a lista invertida

Ja criei uma parte da classe, só estou com dificuldades em criara a função para busacar essas palavras por indice

Segue abaixo o codigo:


unit ULista;

interface

uses
Classes,SysUtils;

type
TLista = class
private
FLista: TStringList;
procedure SetLista(const Value: TStringList);
published

constructor Create(x:TStringList);
property Lista : TStringList read FLista write SetLista;
function GetTexto(Id:Integer):String;
end;

implementation

{ TLista }

constructor TLista.Create(x: TStringList);
begin
x:= TStringList.Create;
With x do
begin
x.IndexOf(´M´);
x.IndexOf(´a´);
x.IndexOf(´r´);
x.IndexOf(´c´);
x.IndexOf(´o´);
x.IndexOf(´s´);
end;
end;

function TLista.GetTexto(Id: Integer): String;
var
saux : TStringList;
begin
Result := ´´;
saux:= TStringList.Create;
saux.Text :=




end;

procedure TLista.SetLista(const Value: TStringList);
begin
FLista := Value;
end;

end.