Ayuda con este proyecto!!!

[FideRosado]

hola necesito que ustedes me revisen estas lineas y me diga si estan correctas,pues creo que me falte algo porque no me funcionan.

procedure TfrmMain.IdPOP3Server1TOP(ASender: TIdCommand; AMessageNum, ANumLines: Integer);
begin
// Aquí es donde el client ha pedido a las líneas TOP X de una determinado Mensaje a ser enviado a ellos

if (AMessageNum > 0) AND (ANumLines > 0) then begin

ASender.Thread.Connection.WriteLn('+OK');
ASender.Thread.Connection.WriteLn('qFrom: [email protected]');
ASender.Thread.Connection.WriteLn('To: [email protected] ');
ASender.Thread.Connection.WriteLn('Subject: este es el top');
ASender.Thread.Connection.WriteLn('');
ASender.Thread.Connection.WriteLn('Message: de cojones');

end;
end;