1:
2:
3:
4:
5:
6:
7:

ShellExecute(0, 
             'open',
             PChar('mailto:mail@delphi-forum.de?subject=Registrierantrag'
                  +'&body=Erstezeile%0AZweitzeile%0ADritttezeile'),
             '', 
             nil, 
             SW_Normal);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

telnet <mailserveradresse> 25
Send > HELO younamehere [ENTER]

Read > 250 HisComputerNameGo'sHere Hello YourCompName [192.168.0.3],
pleased to meet you[ENTER]

Send > MAIL FROM:<emailaddress>[ENTER]
Read > 250 <e-mailaddress>... Sender ok[ENTER]
Send > RCPT TO:<SendToEmailAddress>[ENTER]
Read > 250 <SendToEmailAddress>... Recipient ok[ENTER]
Send > DATA[ENTER]
Read > 354 Enter mail, end with "." on a line by itself[ENTER]
//Now come the headers
Send > From: "YourName" <YourEmailAddress>[ENTER]
Send > To: SendToEmailAddress[ENTER]
Send > Date: TheDate[ENTER]
Send > MIME-Version: MimeVersion[ENTER]
Send > Content-type: ContentType[ENTER]
Send > Content-transfer-encoding: ContentTransferEncoding[ENTER]
Send > Subject: Subject[ENTER]
Send > Priority: normal[ENTER]
Send > YourEmailGo'sHere[ENTER]
Send > You could add as much lines as you want[ENTER]
Send > But Remeber never use the . an one line only.[ENTER]
Send > because that means it is the end of you e-mail.[ENTER]
Send > Also never forget the enter on the end of a line. [ENTER]
Send > There are people who forgot and the got a weird [ENTER]
Send > message. [ENTER]
Send > The things that you could read are maybe different [ENTER]
Send > than the things that I read.
Send > ByeBye.
Send > .
Send > QUIT