try except bei TFileStream im Thread

[wicht]

Hi, ich würds so machen:

Delphi-Quellcode:

try
  FileStream := TFileStream.Create(Path + Filename, fmCreate);
  try
    // Aus '2' habe ich SizeOf(Char) gemacht
    FileStream.Write(MyString[1], Length(MyString) * SizeOf(Char));
  finally
    FileStream.Free;
  end;
except
  on E:Exception do
    Application.MessageBox(PWideChar('FileStream Exception: ' + e.Message) , 'Exception', MB_OK + MB_ICONQUESTION);
end;