q code umschreiben

[misterx]

also ich habe früher delphi 5 benutzt komme damit auch bestens klar doch seit ich auf delphi 2005 umgestigen bin komme ich nicht mer klar also ich wolte fragen ob jemand so nett ist und mir den q code in delphi 2005 umschreibt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host := 'smtp.web.de';
  NMSMTP1.UserID := 'UserID';
  NMSMTP1.PostMessage.ToAddress.Text := '[e-mail]';
  NMSMTP1.PostMessage.FromAddress := '[e-mail]';

  NMSMTP1.PostMessage.subject := ':'+edit1.text;
  NMSMTP1.PostMessage.Body.Add(':'+edit1.text);
  NMSMTP1.PostMessage.Body.Add(':'+edit2.text);
  NMSMTP1.Connect();
end;

procedure TForm1.FormActivate(Sender: TObject);
begin

NMPOP31.Host := 'pop3.web.de';
NMPOP31.UserID := 'xxxxx';
NMPOP31.Password :=  'xxxxxxxxxx';
NMPOP31.Connect();
end;