为什么不用线程?
Tmainfuck = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
public
constructor Create;
end;
constructor Tmainfuck.Create;
begin
inherited Create(true);
end;
procedure Tmainfuck.Execute;
begin
while not self.Terminated do
Mainfuck();
end;