Email via Smpt

[Poring]

Hallo,

Ich möchte eine Email via Smtp versenden.
Dazu habe ich Smpt erstmal installiert (wie hier beschieben).

Gefunden habe ich zum versenden den folgenden Code:

Delphi-Quellcode:

uses
...IdAntiFreeze, IdMessage,IdAttachmentFile, IdText,IdSmtp;

procedure TForm1.Button1Click(Sender: TObject);
var
Email: TIdMessage;
s: integer;
begin
s := 0;
Email := TIdMessage.Create(nil);
Email.Recipients.Clear;
Email.Recipients.Add.Address := '[e-mail]';  //email des empfängers
Email.BccList.Add.Address := '[e-mail]'; //email des empfängers
Email.from.Text := edit1.text;         //Text der Email
Email.From.Name := '[e-mail]';        //Name dem die Email gehört, also mein Name
Email.From.Address:='[e-mail]';      //Absender
Email.Subject:='Test';          //Betreff
Email.Date := Now;
  with TIdText.Create(email.MessageParts, nil) do
   begin
    Body.Text := RichEdit1.Text;
    CharSet := 'iso-8859-1';
    ContentTransfer := 'quoted-printable';
    ContentType := 'text/plain';
    ParentPart := -1;
   end;
  with TIdText.Create(email.MessageParts, nil) do
   begin
    Body.Text := RichEdit1.asansistring('html'); //[Fehler] Unit1.pas(52): E2003 Undefinierter Bezeichner: 'asansistring'
    CharSet := 'iso-8859-1';
    ContentTransfer := 'quoted-printable';
    ContentType := 'text/html';
    ParentPart := -1;
   end;
  
  idsmtp.Connect; //[Fehler] Unit1.pas(59): E2003 Undefinierter Bezeichner: 'Connect'
  try
   idsmtp.Send(Email); //[Fehler] Unit1.pas(61): E2003 Undefinierter Bezeichner: 'Send'
   idsmtp.Disconnect; //[Fehler] Unit1.pas(62): E2003 Undefinierter Bezeichner: 'Disconnect'
  except
  idsmtp.Disconnect; //[Fehler] Unit1.pas(64): E2003 Undefinierter Bezeichner: 'Disconnect'
end;
showmessage('Mail wurde verschickt');
end;

Ich habe makiert wo die Fehler sind.
Kann mir jemand helfen?

Mfg