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:
34:
35:
36:
37:
38:
39:

uses
  Classes;

type
  Thr_eMailer = class(TThread)
  private
   fmailaddr,fmailtext : string;
    { Private-Deklarationen }
  protected
    procedure Execute; override;
  public
   constuctor Create(CreateSuspended: Boolean; MailAddr, MailText : string);
  end;

implementation

{ Thr_eMailer }

procedure Thr_eMailer.Execute;
begin
  { Thread-Code hier einfügen }
  YourDLLFunction_PostEMail(EMailAddr,EMailtext); // mail verschicken
  suspend; // schlafen schicken nach getaner arbeit
end;

{ im form btnmailsendclick zb }
begin
 with myThread.Create(false,...) do
 try
  repeat
  until (suspended); // solange er nicht schläft 
 finally
  terminate;
  waitfor;
  free;
 end; 
   
end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

{ im form btnmailsendclick zb } 
begin 
with myThread.Create(false,...) do 
try 
  repeat 
  until (suspended); // solange er nicht schläft 
finally 
  terminate; 
  waitfor; 
  free; 
end; 
    
end;					

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:

var
  sende_thread: cardinal;
  Form1: TForm1;
  i: integer = 0;
 function senden_fx(p: pointer): integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ThreadID: LongWord;
begin
sende_thread:= beginthread(nil,0,@senden_fx, nil, 0, ThreadID);

//smstool1.senden('test');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//memo1.Lines:=smstool1.sendeprotokoll;
end;

function senden_fx(p: pointer): integer;
begin
form1.SMStool1.senden('text');
end;