Manuel §2.10.4    

Fonction SetFocus

La fonction SetFocus permet de placer le curseur sur un objet graphique. Cela est particulièrement utile lorsque l ’utilisateur a fait une saisie erronée dans un champ, on peut le ramener de force dans le champ de saisie.

If edTemperature.Text > 100 then begin
MessageBox( "  La temperature doit être  inférieure à 100°C " ) ;
edTemperature.SetFocus() ;
end