Linux distribution recognize/de

uses
  SysUtils, ...;

  ...

function funLeseDatei: string;
var
  txtDatei: Textfile;
begin
  Assignfile(txtDatei, '/etc/issue'); // weist txtDatei die Datei zu
  reset(txtDatei); // oeffnet die Datei zum lesen
  readln(txtDatei, Result); // liest die erste Zeile
  Closefile(txtDatei); // schliesst die Datei
end;

function funLinuxDistribution: string;
var
  strDistribution: string;

begin

  Result := '';

  strDistribution := funLeseDatei;
  if strDistribution = '' then
    exit;

  // Wandelt alle Grossbuchstaben in Kleinbuchstaben um
  strDistribution := LowerCase(strDistribution);

  // ermittelt die Distribution
  if Pos('debian', strDistribution) > 0 then
    Result := 'debian'
  else if Pos('kubuntu', strDistribution) > 0 then
    Result := 'kubuntu'
  else if Pos('red hat', strDistribution) > 0 then
    Result := 'red hat'
  else if Pos('suse', strDistribution) > 0 then
    Result := 'suse'
  else if Pos('ubuntu', strDistribution) > 0 then
    Result := 'ubuntu';
  // .. und der Distributionen mehr ...

end;
  
  ...