Leerzeichen aus dem String löschen ?

[aaaaaaaaaa_10]

Delphi-Quellcode:

function TKomMainWnd.DateiNameRohdaten(StatNr: Integer): string;
var
  i,j: integer;
  SecList1, SecList2 : TStringList;
  SessionIni: TIniFile;
  ident, test1, test2 : string;
  liste: Tstrings;
begin
  SecList1 := TStringList.Create;
  SecList2 := TStringList.Create;
  try
    SessionIni := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Sessions.ini');
    with SessionIni do
    begin
      SessionIni.ReadSections(SecList1);
      for j := 0 to SecList1.Count - 1 do
      begin
          SessionIni.ReadSectionValues(SecList1[j],SecList2);
          ident := ('StatName='+Logger.StatParam.StatName);     
          if SecList2.IndexOf(ident) > -1 then
           begin 
              RohdatenPfad := SessionIni.ReadString(SecList1[j],'Rohpfad','C:\Data')
          end else
            RohDatenPfad := DalosOptions.GetOption('RohdatenPfad','','DALOSWin')
      end;
    end;
  finally
    SecList2.Free;
    SecList1.Free;
  end;