[[enecumene]]

Hey, Muchas Gracias DEC y EDUARCOL por su ayuda, era algo tan simple, el codigo me quedo asi:

Código Delphi [-]
procedure TFTramiteMod.SpeedButton21Click(Sender: TObject);
begin
if (DBEdit1.Text = '') OR (DBEdit1.Text = '0') then
 begin
  MessageDlg('¡No se encuentra el número de registro!',mtError,[mbOK],0);
 end
 else
 begin
    FModPed:=TFModPed.Create(self);
    ZModPed.SQL.Clear;
    ZModPed.SQL.Add('select * from reg_pedidos');
    ZModPed.SQL.Add(Format(' where no = ''%s''',[DBEdit1.Text]));
    ZModPed.open;
    FModPed.ZDpto.Open;
    ShowMessage(ZModPed.SQL.Text);
    FModPed.Show;
 end;
end;

Nuevamente les doy las gracias, Saludos..