Aide Delphi

Bonjour à tous j'ai créer ce programme en Delphi suivant:

function RechercheValeurChampDansTableau( const Champ: String;
                                          const SplitString: String;
                                          const Tableau: TstringList) : string;
var
  i : Integer;
  sLigneCur : string;
  tValeurs: TstringList;
begin
  Result := Lib_Cst.Inv;

  for i := 0 to Tableau.Count - 1 do
  begin
    tValeurs := DecouperString( Tableau.Strings[i], // const MonString: String;
                                SplitString);       // const SplitString: String)
    if (tValeurs.Count <> 2) then
    begin
      MessageDlg(('La linge suivante n''est pas correcte : "' + Tableau.Strings[i] + '" !'), mtConfirmation, [mbOK], 0);
    end
    else
    begin
      if (tValeurs.Strings[0] = Champ) then
        Result := tValeurs.Strings[1];
    end;

    tValeurs.Free;
  end;

end;

Ce code me permet de transformer une ligne de fichier en tableau de valeurs.

J'aimerais maintenant renvoyer l'ensemble des lignes d'un tableau sous forme d'une seul ligne avec un séparateur (";") mais je n'y arrive pas, pouvez vous m'aider.
Merci de votre aide!!