delphi preprost programček

ok, kako se naredi preprost programček, ki bi vsebino listboxa spravil v ini file? rabm samo stavek, ko pritisneš na gumb...

procedure TForm1.Button1Click(Sender: TObject);
var dat: system.text;
i: integer;
begin
System.Assign(dat,'*.ini');
if FileExists('*.ini') then
System.Append(dat)
else
System.Rewrite(dat);
for i:=0 to ListBox1.Items.Count-1 do
WriteLn(dat,ListBox1.Items[i]);
System.Close(dat);
end;

A standard save dialog ne bi bil v redu?