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