procedureTForm1.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
;