with Memo1.Lines do
begin
Add('MainBoardBiOSName:'+^I+string(Pchar(Ptr($FE061))));
Add('MainBoardBiOSCopyRight:'+^I+string(Pchar(Ptr($FE091))));
Add('MainBoardBiOSDate:'+^I+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiOSSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
end;