Махнах както се вижда почти всичко но пак продължава проблема,само че този път ми дава Acces violation at address 0041A2F8
Ако знаете кажете ми и клавиш Alt по принцип има ли някакво по-специално приложение или своиство. Съобщението за грешка ми го дава веднага след като го натисна, пробвах if (shift=[ssAlt]) then Key:=0; но въобще не стига до проверката веднага си изкарва съобщението.

dfm

object PKO: TPKO
Left = 219
Top = 145
HelpContext = 6
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsDialog
Caption = 'Ïðîáà'
ClientHeight = 491
ClientWidth = 635
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object ActionMainMenuBar1: TActionMainMenuBar
Left = 0
Top = 0
Width = 635
Height = 1
Caption = 'ActionMainMenuBar1'
EdgeOuter = esNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Spacing = 0
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 617
Height = 497
ActivePage = TabSheet3
TabIndex = 0
TabOrder = 1
object TabSheet3: TTabSheet
Caption = 'Äðóãè'
ImageIndex = 1
object Label11: TLabel
Left = 60
Top = 62
Width = 14
Height = 16
Caption = '¹'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 46
Top = 134
Width = 59
Height = 16
Caption = 'Ôàìèëèÿ'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 77
Top = 173
Width = 28
Height = 16
Caption = 'ÅÃÍ'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 349
Top = 54
Width = 32
Height = 16
Caption = 'Äàòà'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 309
Top = 112
Width = 72
Height = 16
Caption = 'Îáÿñíåíèå'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 308
Top = 169
Width = 73
Height = 16
Caption = 'Çàáåëåæêà'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 176
Top = 272
Width = 35
Height = 20
Caption = 'ñóìà'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object BitBtn5: TBitBtn
Left = 274
Top = 356
Width = 75
Height = 25
Hint = '×èñòè'
Caption = '&×èñòè'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
0EEE333377777777777733330FF00FBFB0EE33337F37733F377733330F0BFB0B
FB0E33337F73FF73337733330FF000BFBFB033337F377733333733330FFF0BFB
FBF033337FFF733F333733300000BF0FBFB03FF77777F3733F37000FBFB0F0FB
0BF077733FF7F7FF7337E0FB00000000BF0077F377777777F377E0BFBFBFBFB0
F0F077F3333FFFF7F737E0FBFB0000000FF077F3337777777337E0BFBFBFBFB0
FFF077F3333FFFF73FF7E0FBFB00000F000077FF337777737777E00FBFBFB0FF
0FF07773FFFFF7337F37003000000FFF0F037737777773337F7333330FFFFFFF
003333337FFFFFFF773333330000000003333333777777777333}
NumGlyphs = 2
end
object Edit10: TEdit
Left = 120
Top = 56
Width = 121
Height = 24
Hint = 'Íîìåð'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
Text = 'Edit10'
end
object Edit11: TEdit
Left = 120
Top = 130
Width = 121
Height = 24
Hint = 'Ôàìèëèÿ'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = 'Edit11'
end
object Edit12: TEdit
Left = 120
Top = 169
Width = 121
Height = 24
Hint = 'ÅÃÍ'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 10
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = 'Edit12'
end
object Edit13: TEdit
Left = 392
Top = 165
Width = 121
Height = 24
Hint = 'Çàáåëåæêà'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 35
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
Text = 'Edit13'
end
object Memo1: TMemo
Left = 392
Top = 92
Width = 169
Height = 57
Hint = 'Îáÿñíåíèå'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Memo1')
MaxLength = 50
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object DateTimePicker1: TDateTimePicker
Left = 392
Top = 50
Width = 129
Height = 24
Hint = 'Äàòà'
CalAlignment = dtaLeft
Date = 38178
Time = 38178
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object Edit14: TEdit
Left = 296
Top = 272
Width = 121
Height = 24
Hint = 'ñóìà'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
Text = 'Edit14'
end
end
end
end


pas

unit PKOvyv;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ToolWin, ActnMan, ActnCtrls, ActnMenus, ComCtrls,
StdCtrls, ExtCtrls, Mask, Buttons;
type
TPKO = class(TForm)
ActionMainMenuBar1: TActionMainMenuBar;
PageControl1: TPageControl;
TabSheet3: TTabSheet;
Label11: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
BitBtn5: TBitBtn;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Memo1: TMemo;
DateTimePicker1: TDateTimePicker;
Edit14: TEdit;
Label19: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn5Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
PKO:TPKO;
implementation
{$R *.DFM}

procedure TPKO.FormClose(Sender: TObject; var Action: TCloseAction);
begin
PKO:=nil;
PKO.Free;
end;

procedure TPKO.BitBtn5Click(Sender: TObject);
begin
Edit10.Text :='';
Edit11.Text :='';
Edit12.Text :='';
memo1.Clear;
Edit14.Text :='';
Edit13.Text :='';
DateTimePicker1.Date :=Date;
end;
end.