problema de linea memo

[migueilichenco]

bueno tras colocar el codigo sale una exepcion asie sta el codigo

var
Form1: TForm1;
ListaAnimales : TStringList;
implementation
function ObtieneNombreAnimal (Numero: Integer) : String;
begin
result := ListaAnimales.Values[IntToStr(Numero)];
end;
{$R *.dfm}

procedure TForm1.CargaListaAnimales;
begin
if ListaAnimales = nil then
ListaAnimales := TStringList.Create;
with TIniFile.Create ('C:\may.ini') do
try
ReadSection ('ANIMALES', ListaAnimales);
finally
Free;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.text:=(ObtieneNombreAnimal(1))
end;

En si lo que yo deseo hacer es llamar digamoslo asi con un numero un memo alojada en una cadena digamos si yo digo 1 bine la palabra hola

1 hola
2 como estas

y asi susesivamente, aunque no es nesesario que sean numero pero que ahiga forma de llamar a cada cadena