CSV Datei einlesen funktioniert aber nicht richtig

[bttb930]

machs so

Delphi-Quellcode:

function GetNextPart(const aLine: string; var aPart, aRest: string; aDelimiter: string = ';');
var
  p: Integer;
begin
  if Pos(aDelimiter, aLine) > 0 then
  begin
    aPart := Copy(aLine, 1, p - 1);
    aRest := Copy(aLine, p + Length(aDelimiter), Length(aLine));
  end
  else
  begin
    aPart := aLine;
    aRest := '';
  end;
end;

procedure SplitLine(const aLine: string);
var
  Part, Rest: string;
begin
  Rest := aLine;
  while Rest <> '' do
  begin
    GetNextPart(Rest, Part, Rest);
    DoSomething(Part);
  end;
end;