[NumLock]

можно мне тожа пофлэймить с вами?)
ну хотя бы так:

Код:

uses
  NumLock,

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Text:=DiskDrive;
end;