[[escafandra]]

Tal como te proponía y para tu caso en particular:

Código Delphi [-]
procedure Tfrm_search.Button1Click(Sender: TObject);
var
  n: Integer;
begin
  with Application.MainForm do
  for n := 0 to MDIChildCount-1 do
    if MDIChildren[n] is Tfrm_pos then Tfrm_pos(MDIChildren[n]).Label1.Caption:= Edit1.Text;
end;

Saludos.