private
  { Private declarations }  
  procedure QuebraLinha(Linha : String; var Info, Valor :  
  String);  

procedure TForm1.FormCreate(Sender: TObject);  
const  
  Nomes : Array[1..5] of String = ('model name', 'vendor_id',  
    'cpu MHz', 'cache size', 'bogomips');  
var  
  Info, Valor : String;  
  i : Integer;  

  CpuInfo : PIOFile;  
  Linha : Array[0..254] of Char;  
begin  
// abre o arquivo /proc/cpuinfo para leitura
  CpuInfo := fopen('/proc/cpuinfo', 'r');  
  try  
// processa o arquivo enquanto carrega as informações  
    while fgets(Linha,255,CpuInfo) <> nil do begin  
// realiza tabulação entre o dado da informação e seu valor  
      QuebraLinha(String(Linha), Info, Valor);  
// verifica os valores das informações levantadas  
      for i := 1 to 5 do  
        if Info = Nomes[i] then  
// se estiver de acordo preenche o label com o valor  
          TLabel(FindComponent('label'+IntToStr(i))).Caption :=  
            Valor;  
    end;  
  finally  
    fclose(CpuInfo);  
  end;  
end;  
  
procedure TForm1.QuebraLinha(Linha: String; var Info,  
  Valor: String);  
var  
  PosAtu : Integer;  
begin  
// determina posição do sinal de :  
  PosAtu := Pos(':', Linha);  
  if PosAtu > 0 then begin  
// a linha tem : - quebra a parte anterior e joga em Info  
//    a parte posterior é colocada em Valor  
    Info := Trim(Copy(Linha,1,PosAtu-1));  
    Valor := Trim(Copy(Linha,PosAtu+1,Length(Linha)));  
  end  
  else begin  
// a linha não tem : - Info tem a linha toda e  
//    Valor é uma string em branco  
    Info := Linha;  
    Valor := '';  
  end;  
end;  

end.