Extraction sur fichier csv

[Dim fileContents As String
        fileContents = My.Computer.FileSystem.ReadAllText("C:\RESULTAT2.csv")
        Dim ligne As String = fileContents.Split(vbLf)(4)
        Dim champ As String = ligne.Split(",")(2)
        TextBox1.Text = champ
        Return

procedure TForm1.Button1Click(Sender: TObject);
var
  FileContents: TStringList;
  Ligne: string;
  SplittedLigne: TStringList;
  Champ: string;
begin
  { création de la StringList: }
  FileContents := TStringList.Create;
  { chargement du fichier dans la StringList: }
  FileContents.LoadFromFile('C:\RESULTAT2.csv');
  { récupération de la dernière "strings", correspondant à la dernière ligne du fichier: }
  Ligne := FileContents[FileContents.Count - 1];
  { remplacement éventuel des ";" par des "," afin d'utiliser CommaText: }
  Ligne := StringReplace(Ligne, ';', ',', [rfReplaceAll]); ShowMessage(Ligne);
  { on n'a plus besoin de "FileContents", on le libère: }
  FileContents.Free;
  { création d'une StringList qui va contenir les champs. On aurait
  pu garder la StringList qui a servi précédemment, mais c'est pour
  la clarté du code: }
  SplittedLigne := TStringList.Create;
  { éclatement de la ligne des champs délimités par des virgules: }
  SplittedLigne.CommaText := Ligne;
  { on récupère par exemple le 4ème champ, soit la String[3]: }
  Champ := SplittedLigne[3];
  { on libère "SplittedLigne": }
  SplittedLigne.Free;
  { affichage du champ dans un Edit: }
  Edit1.Text := Champ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Champ: string;
begin
  with TStringList.Create do
  try
    LoadFromFile('C:\RESULTAT2.csv');
    CommaText := StringReplace(Strings[Count - 1], ';', ',', [rfReplaceAll]);
    Champ := Strings[3];
    Edit1.Text := Champ;
  finally
    Free;
  end;
end;

type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);

function StringReplace(const S, OldStr, NewStr: string; Flags: TReplaceFlags): string;

type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);

function StringReplace(const S, OldStr, NewStr: string; Flags: TReplaceFlags): string;

uses
  SysUtils;

function CharReplace(const S: string; OldChar, NewChar: Char): string;
var
  i: Integer;
begin
  Result := S;
  for i := 1  to Length(Result) do
    if Result[i] = OldChar then
      Result[i] := NewChar;
end;

function CharReplace(const S: string; OldChar, NewChar: Char): string;
var
  i: Integer;
begin
  Result := S;
  for i := 1  to Length(Result) do
    if Result[i] = OldChar then
      Result[i] := NewChar;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Champ: string;
begin
  with TStringList.Create do
  try
    LoadFromFile(ComboBox1.Text);
    CommaText := CharReplace(Strings[Count - 1], ';', ',');
    Champ := Strings[3];
    Edit1.Text := Champ;
  finally
    Free;
  end;
end;

CommaText := CharReplace(Strings[2], ';', ','); // 3ème ligne
Champ := Strings[0];  // 1er champ

CommaText := CharReplace(Strings[0], ';', ','); // 1ère ligne
Champ := Strings[0];  // 1er champ