Problem z notebookiem i wielowątkowością

Mam problem z wielowątkowością w programie. Stosuje poniższy kod i przy zamianie Page w notebooku zamalowuje się on na siwy kolor a zakładka się nie zmienia. Gdy cała procedura jest w jednym wątku notebook działa poprawnie. Refresh i Synchronize nic nie pomaga. Co zrobić żeby notebook działał poprawnie [???]

Główny unit:

procedure TFMain.Wyczysc;
begin
Scan.skanuj.Create(False);
end;

Unit ze skanowaniem (klasa TThread):

procedure Skanuj.Execute;
begin
// Cała procedura skanowania
Synchronize(Update);
end;

procedure Skanuj.Update;
begin
FMain.NoteBook.ActivePage:= 'Start';
FMain.Notebook.Refresh;
end;

Z góry dziękuje za pomoc.

P.S Pisze drugi raz bo mój poprzedni post został skasowany nie mam pojęcia z jakiego powodu.