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:

globale variablen
--------------------
PacketSize: Cardinal; // bytes die in einem packet gesendet werden sollen
Speed: Cardinal; // wieviele bytes pro sekunde gesendet werden
Stream: TMemoryStream; // enthält die komplette quelle z.B. eine Datei
BytesSend: Cardinal; // bytes die schon gesendet wurden

Timer.Interval := 1000 * PacketSize div Speed; // sollte wohl klar sein :)

procedure OnTimer;
var
  Buffer: array of Byte; // das zu sende Packet
  Idx: Cardinal; // zähler für eine schleife
begin
  { Packetgröße festlegen }
  SetLength(Buffer, PacketSize);
  { Packetgröße für das letzte Packet festlegen }
  if Stream.Size - BytesSend < PacketSize then SetLength(Buffer, Stream.Size - BytesSend); 
  { packet aus der quelle "laden", geht bestimmt auch eleganter }
  for Idx := 0 to High(Buffer) do begin
    Stream.Read(Buffer[Idx], 1);
  end;
  { packet senden...in diesem beispiel ist es der socket von TClientSocket}
  Socket.SendBuf(Buffer[0], Length(Buffer));
  { die anzahl der gesendeten bytes um die größe des gesendeten packets erhöhen}
  Inc(BytesSend, Length(Buffer));
  { timer stoppen sobald komplette quelle übertragen ist }
  if BytesSend = Stream.Size then Timer.Enabled := False;
end;