Thread y showmodal

[jef]

Hola a todos, tengo un pequeño problema que no consigo resolver y agradeceria alguna ayuda.

Tengo una tabla con '0' a 'n' registros que se lee en un thread en el que se debe lanzar una modal por cada registro mientras haya, la modal tiene un bitbtn con Close en OnClik.

El problema consiste (supongo) en el cerrado de la modal, ya que cuando se cierra la primera, se para el bucle

Código del Thread:

procedure TForm2.IdThreadComponent2Run(Sender: TIdThreadComponent);

begin
if ADOtable2.RecordCount > 0 then
   begin
   ADOTable2.First;
    while  not ADOtable2.eof  do
      begin
        Form23 := TForm23.Create(self);
        Form23.showModal;
        ADOTable2.Delete;
        ADOTable2.Next;
      end;
   end;
end;

En create () he probado con self, nil y application, el resultado es el mismo.