type
  TSimpleThread = class(TThread)
  private
    FParam: Variant;
  protected
    procedure Execute; override;
  public
    constructor Create(AProcessParam: Variant); reintroduce;
  end;
implementation
constructor TSimpleThread.Create((AProcessParam: Variant);
begin
  inherited Create(True); // create suspended
  FParam:= AProcessParam;
  FreeOnTerminate:= True; // options, auto destroy atau kaga'
  Resume; // activate thread
end;
procedure TSimpleThread.Execute;
begin
  // do your task with FParam value here...
  SomeTask; 
  // or this is a daemon process....
  while not Terminated do
  begin
    // do something
  end;
  Terminated:= True;
end;

  TSimpleThread.Create('MyName is didi');
  // with FreeOnTerminated:= True
  // anda dapat melupakan instance thread ini

lha wong di sample2 delphi udah berserakan koq, dasar lu kurang explore!

// or this is a daemon process....

@old_shutterhand:

// or this is a daemon process....

@DE matur nuwun sebelumnya saya pake ttimer untuk create and kill thread--> daemon namun effectnya ketika dijalankan selama beberapa jam memory menjadi penuh padahal pada debugging mode (D2007) pada event lognya thread secara bergantian (pid sama) di create dan di kill. matur nuwun mbah DE