2 Problemer i tekstbehandlingsprog.

Jeg har nogle problemer med Delphi jeg er i gang med at lave et tekstbehandlingsprogram og jeg har så en Gem knap den har følgende kode

procedure TForm1.miGemClick(Sender: TObject);
begin
if OpenDlg.FileName <> \'\' then
begin
memEdt.Lines.SaveToFile(OpenDlg.FileName);
end
else miGemSom.Click;
end;

Jeg har så i Filter Editor skrevet filtyperne som *.Txt og *.* og den
gemmer filen udemærket bare uden at filen kommr til at hedde *.txt den
får slet ikke noget efternavn så den fremkommer som en ukendt fil hvad
skal jeg gøre ved det problem?

Problem 2:
Hvordan indsætter jeg en Scrollbar funktion i min \"Memoblok\" fordi det er ikke noget som kommer automatisk