Cambiar el Caption de un Form en tiempo de ejecucion

[flista85]

me pasa algo parecido: tengo un form que reutilizo y le cambio el caption dependiendo de la opcion del menu que se haya seleccionado,pero igual no funciona, mejor dicho la primera vez que llamo al form le coloca el caption pero para las llamadas siguientes no lo hace, he corrido el codigo linea a linea y pasa por la sentencia pero nada no cambia el caption lo deja como la 1ra vez que se llamo a la ventana que puedo hacer??? es algo al parecer muy sencillo pero no lo hace no entiendo que pasa... pero ya intente probar lo que hiciste en el evento OnActivate pero nada incluso aplique refresh y repaint y no funciono agradeceria su colaboracion. A continuacion les dejo el codigo


procedure TForm3.FormShow(Sender: TObject);
begin
case opmenu of
0:form3.Caption:='Directorios';
1:form3.Caption:='Choferes';
2:form3.Caption:='Subcontratados';
3:form3.Caption:='Unidades';
end;
//refresh;
//form3.Repaint;
end;