procedure TMain_Form Button5Click Sender TObject begin Memo1 Lines Add

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
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;