procedure TfrmP2KKJava.Button1Click(Sender: TObject);
var
  i: integer;
  imei: string;
begin
 Memo1.Clear;
 with Memo1.Lines do
   begin
     Add(Format('TJ2MEST_372:   %d',[sizeof(TJ2MEST_372)]));

     Add(Format('TJ2MEST_373:   %d',[sizeof(TJ2MEST_373)]));
     Add(Format('TJ2MEST_300:   %d',[sizeof(TJ2MEST_300)]));
     Add(Format('TJ2MEST_E1000: %d',[sizeof(TJ2MEST_E1000)]));
     Add(Format('TJ2MEST_3x:    %d',[sizeof(TJ2MEST_3x)]));
     Add(Format('TJ2MEST_K1:    %d',[sizeof(TJ2MEST_K1)]));
     Add(Format('TJ2MEST_3x86:  %d',[sizeof(TJ2MEST_3x86)]));
     Add(' ');
     Add(Format('Platform: %s', [xPlatform]));
     Add(Format('Mode: %d',[xKJType]));
     Add(' ');
     case xKJType of
       0 : Add('My structure is TJ2MEST_372');
       1 : Add('My structure is TJ2MEST_373');
       2 : Add('My structure is TJ2MEST_373');
       3 : Add('My structure is TJ2MEST_300');
       4 : Add('My structure is TJ2MEST_E1000');
       5 : Add('My structure is TJ2MEST_3x');
       6 : Add('My structure is TJ2MEST_K1');
       7 : Add('My structure is TJ2MEST_3x86');
     end;
     // get imei
     imei:= p2k.GetIMEI;
     Add(' ');
     Add(Format('IMEI: %s',[imei]));
     // найти где установлен J2MEST
     if GetKJava('a', '', i) then Add(#13#10 + Format('KJava is found on drive /a, filesize = %d, structure size = %d', [i, i div 31]));
     if GetKJava('b', imei, i) then Add(#13#10 + Format('KJava is found on drive /b, filesize = %d, structure size = %d', [i, i div 31]));
   end;
end;