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:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

  TQUEUE = class
    pack:TPACKAGE; //Im wesentlichen ein MemoryStream
    Host:String;
    next:TQUEUE;
  end;

[...]
var queue1:Tqueue; 

[...]
//On Create:
queue1:=NIL;


[...]
procedure AddToQueue(pack:TPACKAGE;Host:String);

var GoThroughQueue,NewQueueElement:TQUEUE;
begin

if queue1=nil then
  if not TCPClient1.connected then sendpackage(pack,host) 
//sendet das Packet direkt, falls kein Element in der Schlange ist

     else begin
        queue1:=TQUEUE.Create;
        queue1.pack:=pack;
        queue1.Host:=Host;
        queue1.next:=NIL;
     end
  else begin {queue1 <> Nil}
        NewQueueElement:=TQUEUE.Create;
        NewQueueElement.pack:=pack;
        NewQueueElement.Host:=Host;
        NewQueueElement.Next:=Nil;

        GoThroughQueue:=queue1;
        while GoThroughQueue.Next<>NIL do
          GoThroughQueue:=GoThroughQueue.Next;
        GoThroughQueue.Next:=NewQueueElement;
  end;

end;


[...]

//Nun soll beim Disconnect vom TCPClient ein Packet nach dem anderen gesendet werden:

TCPClient1.OnDisconnected:=ExecuteQueue;


procedure ExecuteQueue(Sender:Tobject);
begin
    counter:=counter+1;

 if not (queue1=nil) then begin
  SendPackage(queue1.pack,queue1.Host);
  queue1:=queue1.next;
 end;  


end;