procedure TForm9.Timer1Timer(Sender: TObject);
Var
  I,A : Integer;
  fields: Array of Array of String;
  fieldsTemp: TStringList;
begin
  Memo1.Lines.LoadFromFile(--irgend eine CSV-);
  if Memo1.Lines.Count > 0 then
  begin
    for I := 0 to Memo1.Lines.Count - 1 do
    begin
      fieldsTemp := TStringList.Create;
      fieldsTemp := Split(Memo1.Lines.Strings[I],';');
      Stringgrid1.RowCount := Memo1.Lines.Count+1;
      StringGrid1.ColCount := fieldsTemp.Count;
      SetLength(fields,Memo1.Lines.Count-1);
      for A := 0 to fieldsTemp.Count - 1 do
      begin
        if Memo1.Lines.Count < 1 then
        begin
//        Application.MessageBox(Pchar(inttostr(Memo1.Lines.Count)),'Wert');
          SetLength(fields[I],Memo1.Lines.Count+1);
//        SetLength(fields[I],Memo1.Lines.Count);
          fields[I,A] := fieldsTemp.Strings[A];
          StringGrid1.Cells[A,I+1] := fields[I,A];
        end;
      end;
    end;
  End;
end;