procedure Tfrmaddcod.FormKeyPress(Sender: TObject; var Key: Char);
  begin
    if Key = #27 then
      begin
        Close;
      end;
  end;