Помогите

У меня есть готовые модули в Delphi для Mail.ru Агента.
Я немогу установить соединения помогите
Код:
------------------------------------------------
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
cl: TMailClient;
cs: TClientSocket;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
cs:= TClientSocket.Create;
cs.Host:= 'mrim.mail.ru';
cs.Port:= 2041;
cs.Resume;

cl:= TMailClient.Create(form1);
cl.Host:= 'mrim.mail.ru';
cl.Port:= 2041;
cl.MRIMHost:= 'mrim.mail.ru';
cl.MRIMPort:= 2041;
cl.Hello;
cl.Mail:= 'CJ190@mail.ru';
cl.PassWord:= '2f24fd4';
cl.Ping;
cl.Connect;
if cl.Connected then Button1.Caption:= 'Вход выполнен'
else
Button1.Caption:= 'Облом';
end;

end.
------------------------------------------------------------------------------------