|colspan="2"| 
 
|colspan="2"| 
 
|-
 
|-
| <code>function OpenDevice(AMode:Integer):Integer; virtual;</code>
+
| <code>function OpenDevice(AMode:Integer):THandle; virtual;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
| <code>procedure CloseDevice(AHandle:Integer); virtual;</code>
+
| <code>procedure CloseDevice(AHandle:THandle); virtual;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
| <code>function ReadDevice(AHandle:Integer; var ABuffer; ACount:Integer):Integer; virtual;</code>
+
| <code>function ReadDevice(AHandle:THandle; var ABuffer; ACount:Integer):Integer; virtual;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
| <code>function WriteDevice(AHandle:Integer; const ABuffer; ACount:Integer):Integer; virtual;</code>
+
| <code>function WriteDevice(AHandle:THandle; const ABuffer; ACount:Integer):Integer; virtual;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
| <code>function EraseDevice(AHandle:Integer; ACount:Integer):Integer; virtual;</code>
+
| <code>function EraseDevice(AHandle:THandle; ACount:Integer):Integer; virtual;</code>
 
| &nbsp;
 
| &nbsp;
 
|-
 
|-
| <code>function SeekDevice(AHandle:Integer; const AOffset:Int64; AOrigin:Integer):Int64; virtual;</code>
+
| <code>function SeekDevice(AHandle:THandle; const AOffset:Int64; AOrigin:Integer):Int64; virtual;</code>
 
| &nbsp;
 
| &nbsp;
 +
|-
 
|-
 
|-
 
|}
 
|}
 
<br />
 
<br />
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">function TDiskDevice.OpenDevice(AMode:Integer):Integer;</pre>
+
<pre style="border: 0; padding-bottom:0px;">function TDiskDevice.OpenDevice(AMode:Integer):THandle; virtual;</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<br />
 
<br />
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
<pre style="border: 0; padding-bottom:0px;">procedure TDiskDevice.CloseDevice(AHandle:Integer);</pre>
+
<pre style="border: 0; padding-bottom:0px;">procedure TDiskDevice.CloseDevice(AHandle:THandle); virtual;</pre>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 
<br />
 
<br />
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
Exception encountered, of type "Error"