Ошибка при переисывании юнита в dll

[AltairShepard]

Пытался переделать юнит в dll, вылезают ошибки при использовании self. Юнит рабочий - это точно, позволяет отправлять смс, используя протокол MMP(mail.ru агент). 4 входящих переменных: логин и пароль, телефон и текст смс. Если можно - пожалуйста вынесите логин и пароль в ini-файл

procedure smssender(login, pass, tel, sms:string);  
const
  SECOND = 1/24/60/60;
  TIME_OUT = SECOND * 20;
var
  LSMSSender: TSMS_Sender;
  LSend: TDateTime;
  LRes: Boolean;
begin
 LSMSSender:=TSMS_Sender.Create(self);
 try
    LSMSSender.Mail:= login;
    LSMSSender.Password:=pass;
    if LSMSSender.Connect then
    begin
      Lsend:=now+TIME_OUT;
      Lres := False;
     while (now < LSend) and (not LRes) do
      begin
         Lres := LSMSSender.SendSMS(tel, sms);
         Application.ProcessMessages;
         Sleep(1000);
       end;
       if LRes then
        ShowMessage('Сообщение отправлено!')
      else
        ShowMessage('Сообщение отправлено!!');
    end else
      ShowMessage('Не удалось подключиться к серверу');
  finally
    LSMSSender.Free;
  end;

end;
 exports smssender;
...