DUThreads (oder auch SimpleThreads/sth) ist eine Bibliothek, die das Entwickeln von Anwendungen mit Threads einfacher machen soll. Sie orientiert sich an PThreads-Aufrufen, ist aber eine native Funtionssammlung, die auf der Funktion BeginThread basiert.
Damit ist sie wahrscheinlich nicht kompatibel zu Linux/Unix, allerdings habe ich das nicht getestet.

Download hier: DUThreads.pas

Programmierung mit DUThreads

Mit sth-Funtionen werden Thread-Programme kleiner.

var info:Tsth_ThreadInfo;
 
function Thread(Parameter:pointer; var TI:Tsth_ThreadInfo):integer;
var i:integer;
begin
  for i:= 0 to 10 do begin
    TForm1(Parameter).Memo1.Lines.Add(inttostr(i));
    Sleep(1000);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  sth_Start(Thread,Self,info);
end;

Einfach, oder?
Dies soll insbesondere das Erweitern vorhandener Programme erleichtern.