Я вот как проверяю наличие формы на экране:

function TMainForm.CheckForm(SCapt: String): Boolean;
var Ind_Child: Integer;
begin
CheckForm := False;
for Ind_Child := MDIChildCount - 1 downto 0 do
if MDIChildren[Ind_Child].Caption = SCapt then begin
MDIChildren[Ind_Child].BringToFront;
CheckForm := True;
end;
end;

т.е. если форма найдена она вываливается на верх, ну и если форма найдена (CheckForm = True) я повторно ее не создаю. Хотя создание формы можно возложить на процедуру, т.е. проверить наличие формы на экране, и если она есть, то просто ее поднять на верх, а новую не создавать, или же если нет, то создать ее в процедуре.