Cambiar foco de formulario

[ruina]

en el formulario padre (en el sentido mdi de la palabra) de ambos formularios pon este codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
    for I := 0 to self.MDIChildCount-1 do
      if self.ActiveMDIChild<>MDIChildren[i] then
          self.MDIChildren[i].SetFocus;
end;

no es exacta exactamente lo que quieres pero cre que arrojara un poco luz a tu problema