Код:
type
TMyThread = class(TThread)
private
nomer,n1,index: Integer;
text: String;
function anek: string;
protected
procedure Execute; override;
public
constructor Create;
end;
вот пример создания класса потока
функцию и процедуру описываешь ниже
конструктор в данном случае нужен чтобы отработать создание