[jafera]

Gracias a todos.

Lo solucione de esta forma:

Código Delphi [-]
 
if StrToInt(v)=1 then
begin
        PageControl1.ActivePage:=TabSheet1;
        DBGrid1.SetFocus;
        DBGrid1.SelectedField:=Volta_1PUNTS;
end;

No pude responder antes por falta de tiempo tal y como he comentado en otro hilo.

Saludos

Josep