Fehlermeldung für TFileStream ändern

[SaFu]

Ok Daknegeht mit der Fehlermeldung vom Klaus

Delphi-Quellcode:

procedure TForm7.GridLaden;
var x, y, row, col,len :Word;
    buff :string;
begin
 if FExclusiveStream <> nil then
  FreeAndNil(FExclusiveStream);
  try
   FExclusiveStream:= TFileStream.Create(FileListbox1.FileName, fmShareExclusive);


  FExclusiveStream.Read(row, SizeOf(Word));
  FExclusiveStream.Read(col, SizeOf(Word));

  for x:= 0 to row do
   for y:= 0 to col do
    begin
     FExclusiveStream.Read(len, SizeOf(Word));
     SetLength(buff, len);
     FExclusiveStream.Read(buff[1], len);
     StringGrid1.Cells[y,x]:= buff;
    end;
  except
    on exception do
       Showmessage('Datei wird von einem andrern Benutzer bearbeite');
  end;
end;

Hab es jetzt unten hingeschrieben und dann funktioniert es Danke