Hi guys, is it possible to switch off Optimization with a compiler directive fa: {$O-} procedure TForm1.Button1Click(Sender: TObject); begin WriteLn( 'Click' ) end; {$O+} i just want that the optimization process do not remove this function, but i don't want to switch off the whole optimization thanks in advance peter