Laufwerke in einer ComboBox auflisten?

[GimbaR]

Hi, bin neu hier und versuche mich gerade an delphi. Hab vorher erstmal mit Pascal angefangen zu "programmieren".
Also eigentlich wollte ich erstmal einen Dialog machen, indem man in einer Combobox die laufwerke des PC's auswählen kann, jedoch weiß ich leider nicht, wie ich das machen soll.
Ich hab auch schon hier auf DP gesucht, jedoch nichts gefunden, außer ein tutorial (http://swissdelphicenter.ch/de/showcode.php?id=562).
Daraus hab ich folgenden Code "geschrieben":

Delphi-Quellcode:

unit AddFenster;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFormAdd = class(TForm)
    ComboBox1: TComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAdd: TFormAdd;

implementation

{$R *.dfm}

procedure List_Drives;
const
  DRIVE_UNKNOWN = 0; 
  DRIVE_NO_ROOT_DIR = 1; 
  DRIVE_REMOVABLE = 2; 
  DRIVE_FIXED = 3; 
  DRIVE_REMOTE = 4; 
  DRIVE_CDROM = 5; 
  DRIVE_RAMDISK = 6; 
var 
  r: LongWord; 
  Drives: array[0..128] of char; 
  pDrive: PChar; 
begin 
  r := GetLogicalDriveStrings(SizeOf(Drives), Drives); 
  if r = 0 then Exit; 
  if r > SizeOf(Drives) then 
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY)); 
  pDrive := Drives; 
  while pDrive^ <> #0 do 
  begin 
    if GetDriveType(pDrive) = DRIVE_FIXED then 
      FormAdd.ComboBox1.Items.Add(pDrive);
    Inc(pDrive, 4); 
  end; 
end;

begin
List_Drives;
end.

Leider kommt, wenn ich das Projekt kompilieren will eine Fehlermeldung
Wär nett, wenn jemand mir helfen könnte...
Ich hab zusätzich das Projekt als *.rar komprimiert und hier geuploadet (oder upgeloadet???)

mfg GimbaR