Otra opción puede ser utilizar la propia variable del formulario.
Código Delphi
[-]
procedure Tincio.BitBtn1Click(Sender: TObject);
begin
if not Assigned(FPedido) then begin
FPedido:=TFPedido.Create(self);
FPedido.Show;
end
else begin
ShowMessage('Ya tienes abierto este Módulo!');
end;
Al cerrar el formulario hay que asegurar se de colocar la variable a nil.