Hallo,
im wesentlichen solltest Du eine neue Klasse von TThread ableiten, in der Du die Execute-Methode überschreibst:
Delphi-Quellcode:
type
TScanThread = class(TThread)
public
procedure Execute; override;
// ...
end;
// ...
procedure TScanThread.Execute;
begin
// hierin zeitaufwändige Scan-Routine platzieren
end;
// Edit: Ansonsten schau mal in der Hilfe unter TThread nach!
Gruß Dirk