Prozedur nach bestimmter Zeit abbrechen

[Gentleman]

Guten Tag,


ich habe mal wieder ein kleines Problem, bei dessen Lösung ich etwas Hilfe benötige.

Ich habe eine Prozedur, die hauptsächlich aus zwei ineinander geschachtelten for-to-Schleifen besteht, sie sieht also ungefähr so aus:

Delphi-Quellcode:

for i:= 0 to 100 do
  for j:= 0 to 100 do
    begin    
      { ... }
    end;

da die Ausführung dieser Prozedur, vor allem auf weniger leistungsstarken Computern, sehr lange braucht, möchte ich sie, wenn nötig nach 10 Sekunden abbrechen.

Mein Ansatz dazu sieht folgendermaßen aus:

Delphi-Quellcode:

function Zeitueberschreitung: Boolean;
begin
  if (t + EncodeTime(0, 0, 10, 0) >= now) then
    Result:= false
  else
    Result:= true;      
end;

das Funktioniert auch ganz gut.
Allerdings weiß ich nicht, wie ich die Prozedur abbrechen kann, wenn Zeitüberschreitung = true ist. Gibt es überhaupt eine Möglichkeit die Prozedur im Rechenvorgang abzubrechen?

vielen Dank im Voraus!