Programm startet nicht nicht

[HomerGER]

@APP welchen teil des codes willst du sehen
den mit den Gleitkommafehler ? der ist weg benutze jetzt
so sieht der neue code aus

Code:

//##############################################################################
//##############################################################################
//System Kurz Info CPU Info
//##############################################################################
//##############################################################################
//******************************************************************************
//Global
//System Kurz Info Anzeigen
Procedure System_KurzInfo_CPU_Auslesen_SYKU();
var
cpu_info : TCpuInfo;
begin
    //CPU
    try
        cpu_info := CPUID;
        Haupt_Form.System_KurzInfo_Label14.Caption := cpu_info.Manufacturer;
        Haupt_Form.System_KurzInfo_Label15.Caption := cpu_info.CpuName;

        Haupt_Form.System_KurzInfo_Label16.Caption := Format('%f Mhz',[dwCPUClock]);

    except
        Haupt_Form.System_KurzInfo_Label14.Caption := Element_Lesen_GU('SKI111');;
        Haupt_Form.System_KurzInfo_Label15.Caption := Element_Lesen_GU('SKI121');;
        Haupt_Form.System_KurzInfo_Label16.Caption := Element_Lesen_GU('SKI131');;
    end;

    //Prozessor Bild laden
    if (Pos('AMD', cpu_info.Manufacturer) <> 0) then
    begin
        //AMD
        Haupt_Form.System_KurzInfo_Image1.Picture.Icon := ImageShell_Icon_Lesen_GU('KurzInfo_AMD');
    end
    else if (Pos('Intel', cpu_info.Manufacturer) <> 0) then
    begin
        //Intel
        Haupt_Form.System_KurzInfo_Image1.Picture.Icon := ImageShell_Icon_Lesen_GU('KurzInfo_Intel');
    end; 

    //Speicher
    Haupt_Form.System_KurzInfo_Label24.Caption := Format('%f MB',[(GetTotalPhysicalMemory / 1048576)]);
    Haupt_Form.System_KurzInfo_Label25.Caption := Format('%f MB',[((GetTotalPhysicalMemory / 1048576) - (GetFreePhysicalMemory / 1048576))]);
    Haupt_Form.System_KurzInfo_Label26.Caption := Format('%f MB',[(GetFreePhysicalMemory / 1048576)]);

    //Win
    Haupt_Form.System_KurzInfo_Label34.Caption := g_win_version_s;

    //DirectX
    Haupt_Form.System_KurzInfo_Label44.Caption := dwGetDirectXName;
    Haupt_Form.System_KurzInfo_Label45.Caption := dwReadFullDirectXVersion;
end;

das war der alte code

Code:

//##############################################################################
//##############################################################################
//System Kurz Info CPU Info
//##############################################################################
//##############################################################################
//******************************************************************************
//Global
//System Kurz Info Anzeigen
Procedure System_KurzInfo_CPU_Auslesen_SYKU();
var
cpu_info : TCpuInfo;
cpu_speed : TFreqInfo;
begin
    //CPU Info auslesen
    cpu_info := CPUID;
    //CPU Speed auslesen
    cpu_speed := CPUID.FrequencyInfo;
    GetCpuSpeed(cpu_speed);
    
    //CPU
    Haupt_Form.System_KurzInfo_Label14.Caption := cpu_info.Manufacturer;
    Haupt_Form.System_KurzInfo_Label15.Caption := cpu_info.CpuName;
    Haupt_Form.System_KurzInfo_Label16.Caption := Format('%d Mhz',[cpu_speed.RawFreq]);
    //Prozessor Bild laden
    if (Pos('AMD', cpu_info.Manufacturer) <> 0) then
    begin
        //AMD
        Haupt_Form.System_KurzInfo_Image1.Picture.Icon := ImageShell_Icon_Lesen_GU('KurzInfo_AMD');
    end
    else if (Pos('Intel', cpu_info.Manufacturer) <> 0) then
    begin
        //Intel
        Haupt_Form.System_KurzInfo_Image1.Picture.Icon := ImageShell_Icon_Lesen_GU('KurzInfo_Intel');
    end;

    //Speicher
    Haupt_Form.System_KurzInfo_Label24.Caption := Format('%f MB',[(GetTotalPhysicalMemory / 1048576)]);
    Haupt_Form.System_KurzInfo_Label25.Caption := Format('%f MB',[((GetTotalPhysicalMemory / 1048576) - (GetFreePhysicalMemory / 1048576))]);
    Haupt_Form.System_KurzInfo_Label26.Caption := Format('%f MB',[(GetFreePhysicalMemory / 1048576)]);

    //Win
    Haupt_Form.System_KurzInfo_Label34.Caption := g_win_version_s;

    //DirectX
    Haupt_Form.System_KurzInfo_Label44.Caption := dwGetDirectXName;
    Haupt_Form.System_KurzInfo_Label45.Caption := dwReadFullDirectXVersion;
end;

@ NicoDE
kannst du genauer werden ?
die fehlermeldung mit den "fehler senden" kommen noch vor der oncreate


könnte das programm jemand mal testen der ein intel cpu mit über 3 gh hat ?