Por lo que veo, estas intentando mostrar un formulario que aún no ha sido creado. Antes de "Form1.Show" tendrás que crearlo...
Prueba con algo como esto:
Código:
function msg:Boolean;stdcall;
begin
form1 := TForm1.Create(nil)
try
try
form1.Show;
result:=true;
except
showMessage('Error al intantar mostrar el mensaje');
result:=true;
end;
finally
form1.free;
end;
end;
Un saludo