function FsInit();
begin
// стандартная инициализация
// создаю поток
    ThreadHandle := CreateThread(nil, 0, @MyThreadProc, nil, 0, thID);
// некая задержка, например sleep() или MessageBox()
// ....

// после окночания задержки и выхода из FSInit() поток прекращает работу.

   Result := 0;
end;

Procedure MyThreadProc;
var
i:LongInt;
Begin
i:=0;
While True do
 begin
 SetWindowText(FindWindow ('TTOTAL_CMD',nil),pchar(IntToStr(i)));
 sleep (1000);
 inc (i);
 end;
End;

function FsInit(PluginNr:integer;pProgressProc:tProgressProc;pLogProc:tLogProc;
 pRequestProc:tRequestProc):integer; stdcall;
Begin
CreateThread(nil, 0, @MyThreadProc, nil, 0, thID);
MessageBox (FindWindow ('TTOTAL_CMD',nil),'Поток создан','',0);
End;