procedure TCustomWSocket.RaiseException(const Msg : String);
begin
    if Assigned(FOnError) then
        TriggerError                 { Should be modified to pass Msg ! }
    else
        raise ESocketException.Create(Msg);
end;

var buff:dword;

asm
    mov ah, 02h   // ф-ция read sector
    mov dl, 00h    // диск а:
    mov dh, 00h  //head 0
    mov ch, 00h  //track 0
    mov cl, 01h   //сектор 1
    mov al, 01h   //читаем сектор 1
    mov es, SEG buff  //адресс сегмента буффера
    mov bx, OFFSET buff  //адресс оффсета буффера
    int 13h      //читаем сектор
  end;