Domyślny tekst w savedialog

0

Mam problem ponieważ napisałem program który korzysta z własnego rozszerzenia, a jak zauważyłem po wielu próbach zapis pod danym formatem udało mi się uzyskać gdy po nazwie zapisanego pliku rozszerzenie dodałem po kropce. np plik.osr.
Jak zapisać w kodzie instrukcję dzięki której po wywołaniu savedialog'u domyślnie będzie widoczny format np
*.osr lub by automatycznie dopisywał do nazwy rozszerzenie?

Do zapisu używam kodu:

procedure TForm1.Zapisz1Click(Sender: TObject);
var
  FileStream : TFileStream;
  begin
savedialog1.Execute;
  if FileExists(trim(savedialog1.FileName) ) then 
    FileStream := TFileStream.Create(savedialog1.FileName, fmOpenWrite) else
  FileStream := TFileStream.Create(savedialog1.FileName, fmCreate); 
  FileStream.WriteComponent(edit1);
0
SaveDialog.DefaultExt := 'osr';

1 użytkowników online, w tym zalogowanych: 0, gości: 1