[DarkBlue]

muchas gracias, he intentado hacer lo que me indicaste pero...

Código Delphi [-]

type
  Tfcotizacionn = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    ListBox2: TListBox;
....


   procedure Cambiar1Click(Sender: TObject);
    procedure Reparar1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure algo1Click(Sender: TObject);
    procedure loquesea1Click(Sender: TObject);
    procedure Porcliente1Click(Sender: TObject);
    procedure Pornumerodeserie1Click(Sender: TObject);
    procedure Porplacas1Click(Sender: TObject);
    procedure Pornumerodeserie2Click(Sender: TObject);
    procedure oT1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure DBGrid2ColumnMoved(Sender: TObject; FromIndex,
      ToIndex: Integer);
    procedure Producto1Click(Sender: TObject);
    procedure StringGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
      procedure VerRs;

//


implementation

{$R *.dfm}


procedure VerRs;
  var nall,pin,hoja,pinhoja:integer;
  begin

  if (fcotizacionn.claveservicio='-1') or ([COLOR="rgb(255, 140, 0)"]fcotizacionn[/color].claveservicio='') then
  begin
  showmessage('no se ha creado ningun presupuesto para el servicio '+fcotizacionn.DBGrid2.Fields[0].AsString);
  exit;
end;

pero me sale un mensaje de error como el siguiente

[Error] cotizaciones.pas(151): Unsatisfied forward or external declaration: 'Tfcotizacionn.VerRs'

espero que me puedas seguir ayudando muchas gracias

ups... ya lo resolvi tenia que darle el nombre del form al procedure de la siguiente manera


procedure tfcotizacionn.procedimiento;
aun asi que bueno que estan por aqui para guiar a otros