procedure TMain_Form Button5Click Sender TObject begin Memo1 Lines Add

procedure TMain_Form.Button5Click(Sender: TObject);
begin
//Memo1.Lines.Add(Get_Comp_Name);

Memo1.Lines.Add(Str_To_Hex(Get_Comp_Name));
Memo1.Lines.Add(Get_User_Name);
Memo1.Lines.Add(Str_To_Hex(Get_Disk_Info));


Memo1.Lines.Add(Get_Disk_Info);

end;