Прочитать первую строку из memo

[hacknet]

Добрый вечер.
Вопрос про компонент icq в Дельфи.
Подскажите, как в мемо прочитать первую строчку, когда приходит сообщение с аськи, и чтобы после этого выполнилась команда показать сообщение?
Код:

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);

begin
Memo1.Lines.Add(Msg);

end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
i: integer;
begin
memo1.Lines.strings[i];
i:=random(Memo1.Lines.Count-1);
if memo1.Lines.Text = ('hi') then
showmessage ('fds');
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if label1.Caption = 'onLine' then
ICQClient1.sendMessage(123456, 'connected');

[Voody]

Memo1.Lines[0] - первая строка Memo