procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := 'smtp.sina.com.cn';
NMSMTP1.Connect;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if NMSMTP1.Verify('sun77wind') then
ShowMessage('True') else
ShowMessage('False');
end;
明白?