Kod z BCB na delphi (tłumaczenia)

Potrzebuje tłumaczenia następujących kodów:
1:
void __fastcall TForm1::Button1Click(TObject Sender)
{
char MainBoardBiosDate[100];
strcpy(MainBoardBiosDate, (char)0xFFFF5);
Label1->Caption = MainBoardBiosDate;
}

2:
void __fastcall TForm1::Button1Click(TObject Sender)
{
char MainBoardBiosName[100];
strcpy(MainBoardBiosName, (char)0xFE061);
Label1->Caption = MainBoardBiosName;
}

3:
void __fastcall TForm1::Button1Click(TObject Sender)
{
char MainBoardBiosSerialNo[100];
strcpy(MainBoardBiosSerialNo, (char)0xFEC71);
Label1->Caption = MainBoardBiosSerialNo;
}

4:
void __fastcall TForm1::Button1Click(TObject Sender)
{
char MainBoardBiosCopyright[100];
strcpy(MainBoardBiosCopyright, (char)0xFE091);
Label1->Caption = MainBoardBiosCopyright;
}

Za wszelką pomoc z góry dziękuje

procedure TForm1.Button1Click(Sender: TObject);
var
MainBoardBiosDate: PChar;
begin
GetMem(MainBoardBiosDate, 100);
StrCopy(MainBoardBiosDate, PChar($FFFF5));
Caption := StrPas(MainBoardBiosDate);
FreeMem(MainBoardBiosDate);
end;

Reszta przez analogię.

Dzięki Dryo, ale to nie chodzi na NT'kach? Można to jakoś zastąpić (np. ZLPortIO piszemy do $70 a odpowiedź na $71, tylko jaki port odpowiada za datę biosa itd...)