[bombovix]

Все бы хорошо, да выдает ошибку:

unit SDIMAIN;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,
Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
ActnList, ToolWin, jpeg, GIFImg, XPMan, sysUtils;

type
TApplication01 = class(TForm)
gamesoft: TImage;
menu1: TImage;
Memo1: TMemo;
ImageList: TImage;
Cheats: TListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Solutions: TListBox;
Button1: TImage;
procedure CheatsClick(Sender: TObject);
procedure SolutionsClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure gamesoftMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);







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

var
Application01: TApplication01;

implementation

uses about;

{$R *.dfm}






procedure TApplication01.gamesoftMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
releasecapture;
TApplication01.perform(wm_syscommand, sc_dragmove, 0);
end;

А вот ошибки:

Код:

[DCC Error] SDIMAIN.PAS(104): E2003 Undeclared identifier: 'wm_syscommand'
[DCC Error] SDIMAIN.PAS(104): E2076 This form of method call only allowed for class methods
[DCC Error] SDIAPP.DPR(6): F2063 Could not compile used unit 'SDIMAIN.PAS'