Partir Memo en diferentes strings y enviarlas en un TIdIRC

[DarkByte]

¡¡Hola!!, estaba dudando si poner este hilo en Varios o en Internet, pero como la guía de estilo dice que, en caso de duda, tiene que ir a varios, pues aquí esta.

Estoy intentando hacer un cliente IRC, tengo un Memo para enviar un mensaje a un canal. El problema es si el mensaje tiene varias líneas, ¿cómo lo envío?

Adjunto un poco de código;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 begin
   IdIRC1.Say(Canal,Memo1.Text);
   Memo1.Clear;
 end;

Como véis, si el Memo tiene varias líneas, pues se va todo al cara... . Por eso me gustaría coger cada línea del memo y decirla por separado, al estilo del mIRC. Me parece que tengo que usar un bucle for..., pero estoy perdido... . Utilizo Delphi 7 Enterprise bajo WinXp Pro

Muchas gracias simplemente, por leerme.