const SHFMT_DRV_A = 0;
          SHFMT_DRV_B = 1;
          SHFMT_ID_DEFAULT = $FFFF;
          SHFMT_OPT_QUICKFORMAT = 1;
          SHFMT_OPT_FULLFORMAT = 0;
          SHFMT_OPT_SYSONLY = 2;
          SHFMT_ERROR = -1;
          SHFMT_CANCEL = -2;
          SHFMT_NOFORMAT = -3;

...

Function SHFormatDrive(HWnd: HWnd; Drive: Word; FmtID: Word; Options: Word): longint stdcall;
 external 'Shell32.dll' name 'SHFormatDrive';

procedure TForm1.Button1Click(Sender: TObject);
  var FmtRes: longint;
begin
 try
  FmtRes:=SHFormatDrive(Handle, SHFMT_DRV_A, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT);
   case FmtRes of
    SHFMT_ERROR: ShowMessage('Při formátování disku došlo k chybě.');
    SHFMT_CANCEL: ShowMessage('Formátování disku bylo zrušeno.');
    SHFMT_NOFORMAT: ShowMessage('Disk nebyl zformátován.');
   else
    ShowMessage('Disk byl úspěšně zformátován.');
   end;
 except
 end;
end;