Vielleicht kannst du uns sagen wo genau das prog hängt, kannst du mal messen wie lang eine Funktion dauert und uns dann mal den Source der kritischen Funktionen oder schleifen geben.So könnte man die Laufzeit einer Prozedur messen:
Delphi-Quellcode:
procedure TForm1.Form1Create(Sender:TObject);
begin
AllocConsole;
end;
procedure TForm1.Form1Destroy(Sender:TObject);
begin
FreeConsole;
end;
procedure TForm1.DoSth(Param1:Integer);
const
KritischerWert=10;
var
cTime:Cardinal;
cDifferenz:Cardinal;
begin
cTime:=GetTickCount
//hier etwas machen
cDifferenz:=(GetTickCount-cTime);
if cDifferenz > KritischerWert then
WriteLn(Format('Die Funktion DoSth hat %d ms gedauert Parameter: %d',[cDifferenz, Param1]));
end;