[miguelnoda]

Muchas gracias amigo pero cuando corrijo el código me salta error en FormCreate

procedure TForm1.FormCreate(Sender: TObject);

que se supone que debo cambiar?, he probado a poner el nombre de la aplicación pero nada