como fazer uma funçao com stringlist?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    Edit2: TEdit;
    Button2: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    lista: TStringList;
    function armazena(grava: boolean; info: string): string;    
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

{funçao que adiciona nicks e host e procura}
function TForm1.armazena(grava: boolean; info: string): string;
var i: integer;
    r: string;
begin
 if (grava) then begin lista.Add(info); end
 else
 begin
  for i := 0 to lista.Count -1 do
  begin
    if (pos(info,Copy(lista.Strings[i], 1, pos(´´,info)-1)) > 0) then
     r := copy(lista.Strings[i], 1, pos(´´, info)+Length(info));
     break;
  end;
 end;
 Result := r;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 {qndo adicionar adicionar assim ex:   nickhost.com.br}
 armazena(true,edit1.Text);
 edit1.Clear;
 listbox1.Items.Clear;
 listbox1.Items.AddStrings(lista);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 {qndo procurar, procurar pelo nick, e ele teria q retornar o host}
 {ou seja, o # eh o separador entre nick e host}
 {mostra na edit3 o resultado da procura do nick}
 edit3.Text := armazena(false,edit2.Text);
 edit2.Clear;
end;

end.