Index: forms.pp
===================================================================
--- forms.pp	(revision 10197)
+++ forms.pp	(working copy)
@@ -908,6 +908,7 @@
     FOnShowHint: TShowHintEvent;
     FOnUserInput: TOnUserInputEvent;
     FAsyncCallQueue: PAsyncCallQueueItem;
+    FAsyncCallQueueLast: PAsyncCallQueueItem;
     FShowHint: Boolean;
     FShowMainForm: Boolean;
     FLastMousePos: TPoint;
Index: include/application.inc
===================================================================
--- include/application.inc	(revision 10197)
+++ include/application.inc	(working copy)
@@ -1561,8 +1561,12 @@
   New(lItem);
   lItem^.Method := AMethod;
   lItem^.Data := Data;
-  lItem^.NextItem := FAsyncCallQueue;
-  FAsyncCallQueue := lItem;
+  lItem^.NextItem := nil;
+  if FAsyncCallQueue = nil then
+    FAsyncCallQueue := lItem
+  else
+    FAsyncCallQueueLast^.NextItem := lItem;
+  FAsyncCallQueueLast := lItem;
 end;
 
 procedure TApplication.FreeComponent(Data: PtrInt);