Как добратся до накопителя (стример), подтолкните меня в нужном направлении

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
const BLOCK_SIZE = 512;
const BLOCKING_FACTOR = 20;
 
Procedure DoSomething;
var
  H, TapeMediaBufferSize: Cardinal;
  R: Integer;
  TapeMediaBuffer: TAPE_GET_MEDIA_PARAMETERS;
  NewTapeParams: TAPE_SET_MEDIA_PARAMETERS;
  ReadBuffer: Array[0..(BLOCK_SIZE * BLOCKING_FACTOR) - 1] of Char;
  BytesRead: Cardinal;
  FileStream: TFileSTream;
begin
  //get a handle to your tape device
  H := CreateFile('\\.\TAPE0',GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
  if H = INVALID_HANDLE_VALUE then
    Exit;
  try
    //Prepare the tape for reading from the beginnning
    R := PrepareTape(H, TAPE_LOAD, false);
    IF R <> NO_ERROR then
    begin
      //use GetLastError() to find out why it failed
      exit;
    end;
    //Retrieve current tape Info
    TapeMediaBufferSize := Sizeof(TapeMediaBuffer);
    R := GetTapeParameters(H,GET_TAPE_MEDIA_INFORMATION, TapeMediaBufferSize, @TapeMediaBuffer);
    if R <> NO_ERROR then
    begin
      //use GetLastError() to find out why it failed
      Exit;
    end;
    //set the Tape Block size to that used for writing the tape. Use a block siz of 0 for 'variable block size' if your device supports it.
    NewTapeParams.BlockSize := 0;
    R := SetTapeParameters(H,SET_TAPE_MEDIA_INFORMATION , @NewTapeParams);
    if R <> NO_ERROR then
    begin
      //use GetLastError() to find out why it failed
      Exit;
    end;
    //Now Start reading
    FileSTream := TFileSTream.Create('C:\TapeContent.txt', fmCreate);
    try
      while true do
      begin
        if NOT ReadFile(H, ReadBuffer[0],BLOCK_SIZE * BLOCKING_FACTOR, BytesRead, nil) then
        begin
          //use GetLastError() to find out why it failed
          //GetLastError could tell you that you have reached a begin file marker, in which case
          //You are ready to read the next file off the tape (I think)
          Exit;
        end;
        FileSTream.WriteBuffer(ReadBuffer, BytesRead);
      end;
    finally
      FileSTream.Free;
    end;
  finally
    CloseHandle(H);
  end;
end;
 
implementation
 
{$R *.dfm}
 
end.

Build
  [Error] Unit1.pas(28): Undeclared identifier: 'TAPE_GET_MEDIA_PARAMETERS'
  [Error] Unit1.pas(29): Undeclared identifier: 'TAPE_SET_MEDIA_PARAMETERS'
  [Error] Unit1.pas(33): Statements not allowed in interface part
  [Error] Unit1.pas(40): Undeclared identifier: 'TAPE_LOAD'
  [Error] Unit1.pas(55): Missing operator or semicolon
  [Error] Unit1.pas(24): Unsatisfied forward or external declaration: 'DoSomething'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

CreateFile(pchar('\\.\TAPE0'),GENERIC_READ OR GENERIC_WRITE,FILE_SHARE_READ  OR FILE_SHARE_WRITE,nil,OPEN_EXISTING,0, 0);