Gracias seoane!! me ha funcionado de maravillasel codigo me quedo asi:
Código Delphi
[-]procedure Tincio.BitBtn1Click(Sender: TObject);
begin
if not Existe('FPedido') then
begin
FPedido:=TFPedido.Create(self);
FPedido.Show;
end else
ShowMessage('Ya tienes abierto este Módulo!');
end;
Muchas Gracias, Saludos.