1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.btnDateiLadenClick(Sender: TObject);
var
  buff : array [0..4999] of char; // Ein paar tausend Bytes
  f : file;
  Eingelesen : Integer;
begin
  if dlgOpen.Execute then begin  // Datei öffnen
    AssignFile(f, dlgOpen.FileName);
    Reset(f, 1); // Recordgröße auf 1 setzen
    BlockRead(F, buff, SizeOf(buff), Eingelesen); // Block von 4999 Byte einlesen
    System.Close(F);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  cnt : Integer;
  s : String;
begin
  s:= ''; // Achtung, das ist nur hier als Beispiel. In deiner Routine muss das woanders gemacht werden,
          // da du ja noch mehr buffer einlesen musst.
  for cnt := 0 to 4999 do begin
    if buff[cnt] = ';' then begin
      // Eine Zahl wurde vollständig eingelesen. Mit der muss jetzt was gemacht werden
      // Danach wieder :
      s := '';
    end
    else begin
      s := s + buff[cnt];
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  f : file;
  x, y : array of Byte;
  a, b, c : Integer;
begin
  AssignFile(f,'test.txt');
  Reset(f,1);
  SetLength(x,FileSize(f));
  BlockRead(f,x[0],Length(x),c);
  CloseFile(f);
  SetLength(y,c div 2);
  b:=0;
  FillChar(y[a],c div 2,0);
  for a:=0 to c-1 do
    if x[a] = 59 then Inc(b) else y[b]:=y[b]*10+x[a]-48;
  SetLength(y,b+1);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

var
  Form1: TForm1;
  F: file of char;
  c: char;
  s: string;
  i, j: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  series1.Clear;
  opendialog1.Execute;
  assignfile(f, opendialog1.FileName);
  reset(f);
  j:= filesize(f);
  while not eof (f) do
    begin
      read(f, c);
        if (c <> ';') then
          begin
            s:= s + c;
          end
        else
          begin
            i:= strtoint(s);
            series1.AddY(i);
            s:= '';
          end;
    end;
  closefile(f);
end;

end.