Hola Darkie
Si forzosamente has de enviar linea a linea, si te fijas, el componente TMemo, tiene la propiedad Lines la cual es un TStrings
Al ser un TStrings puedes, o bien recuperar todo su contenido mediante la propiedad Text (que seguramente ya te valdría -> Memo1.Lines.Text) o bien con un bucle ir recuperando linea a linea
Código Delphi
[-]
for i := 0 to Memo1.Lines.Count - 1 do
IdIRC1.Say(Canal, Memo1.Lines[i]);
Espero que te sirva