Hola Jere_84, al recorrer cada TabSheet puedes obtener el TabIndex donde haya un Edit vacio.
Código Delphi
[-]
sheet : TTabSheet;
begin
for i:=0 to PageControl1.ControlCount-1 do
begin
sheet := TTabSheet(PageControl1.Controls[i]);
for a:=0 to sheet.ControlCount-1 do
begin
if sheet.Controls[a] is TEdit then
if TEdit(sheet.Controls[a]).Text = '' then
begin
PageControl1.TabIndex := sheet.TabIndex;
TEdit(sheet.Controls[a]).SetFocus;
exit;
end;
end;
end;
Saluditos