Ы маамммтттттngy s,,,,,,,,,,,C, xf

procedure Open1Click(Sender: TObject);

procedure Save1Click(Sender: TObject);

procedure Close1Click(Sender: TObject);

procedure Cut1Click(Sender: TObject);

procedure Copy1Click(Sender: TObject);

procedure Past1Click(Sender: TObject);

procedure Delete1Click(Sender: TObject);

procedure RunF91Click(Sender: TObject);

procedure StepOver1Click(Sender: TObject);

procedure Help1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.New1Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
procedure TForm1.Open1Click(Sender: TObject);

begin

ShowMessage('Open punkti');

end;
procedure TForm1.Save1Click(Sender: TObject);

begin

ShowMessage('Save punkti');

end;
procedure TForm1.Close1Click(Sender: TObject);

begin

ShowMessage('Close punkti');