procedure TForm1.Button1Click(Sender: TObject);
begin
 with Memo1.Lines do
 begin
 Add('MainBoardBiosName: '+string(Pchar(Ptr($FE061))));
 Add('MainBoardBiosCopyRight: '+string(Pchar(Ptr($FE091))));
 Add('MainBoardBiosDate: '+string(Pchar(Ptr($FFFF5))));
 Add('MainBoardBiosSerialNo: '+string(Pchar(Ptr($FEC71))));
 end;
end;