Fehlermeldung für TFileStream ändern

[SaFu]

Gutem Morgen

Hatte ja gestern ein Problem wegen dem Exclusiven öffenen einer Datei.

Das funktioniert soweit sehr gut nur wollte ich die Fehlermeldung die mir die Funktion bringt ändern.

Es kommt ja sowas wie: Die Datei C:\\Benutzer\Ordner\Ordner\Ordner\Test.txt wird von einem anderen Prozess bla bla bla

Ich würde gerne eine kürzere Meldung bringen mit Showmessage, hab es schon mit try except versucht aber irgendwie will das net so

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);
  except
   Showmessage('Datei wird von einem andrern Benutzer bearbeite');
  end;
  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;
end;

Was mach ich da jetzt fals oder wie kann ich die Meldung abfangen.

Wenn ich es so wie oben mache bekomm ich einen Fehler nach dem die Meldung abgefangen wurde