function  SendEmail(AFromEMail: PAnsiChar; AToEmail: PAnsiChar; ALogin: PAnsiChar; APassword: PAnsiChar; AHost: PAnsiChar; APort: longint): longint; cdecl; export;
var
  smtp: TIdSmtp;
  LMsg: TIdMessage;
  LText: TidText;
  K: TextFile;
begin
  try
    AssignFile(K, 'C:\Temp\DebugUDF.txt');
    Rewrite(K);

    smtp := TIdSmtp.Create(nil);
    Writeln(K, 'SMTP created');
    try
      LMsg := TIdMessage.Create(nil);
      Writeln(K, 'IDMessage created');
      try
        smtp.Host := AHost;
        smtp.Port := APort;
        smtp.Username := ALogin;
        smtp.Password := APassword;
        LMsg.CharSet := 'ISO-8859-2';
        LMsg.ContentType := 'multipart/mixed';
        LMsg.ContentTransferEncoding := 'quoted-printable';
        LMsg.Encoding := meMIME;
        LMsg.UseNowForDate := True;
        LMsg.Organization := 'Grupa';

        LMsg.Subject := wintoiso('Test');

        LMsg.From.Address := wintoiso(Afromemail);
        LMsg.from.Name := wintoiso(ALogin);

        LMsg.Recipients.Add;
        LMsg.Recipients[0].Name := WinToISO(AToEmail);
        LMsg.Recipients[0].Address := AToEmail;
        LMsg.GenerateHeader;
        Writeln(K, 'Message initialized');

        LText := tidtext.create(LMsg.MessageParts, nil);
        LText.CharSet := 'WINDOWS-1250';
        LText.ContentType := 'text/plain';

        LText.Body.Text := 'Test';
        Writeln(K, 'IDText initialized');
        Writeln(K, 'SMTP.host: ' + smtp.host);
        Writeln(K, 'SMTP.UserName: ' + smtp.username);
        Writeln(K, 'SMTP.Password: ' + smtp.Password);
        Writeln(K, 'Message initialized');
        smtp.Connect;
        Writeln(K, 'Connected');
        smtp.Send(LMsg);
        Writeln(K, 'Sended');
        smtp.Disconnect;
        Writeln(K, 'Disconnected');
        result := 0;
      finally
        freeandnil(smtp);
      end;
    except
      on E: exception do
      begin
        Writeln(K, e.Message);
        result := 1;
      end;
    end;
  finally
    CloseFile(K);
  end;
end;

 АPort: longint 

 var АPort: longint