SaveDialog в Delphi выдаёт ошибку, MergeList не знаю как взять результат и как правильно сохранить?

procedure TFormMain.MergeStrings(Dest, Source: TStrings) ;
var j : integer;
begin
   for j := 0 to -1 + Source.Count do
     if Dest.IndexOf(Source[j]) = -1 then
       Dest.Add(Source[j]) ;
end;

procedure TFormMain.Button1Click(Sender: TObject);
 begin

 if SaveDialog1.Execute then
 if FileExists(SaveDialog1.FileName) then
 raise Exception.Create('File already exists. Cannot overwrite.')
    else
  OpenBase(SaveDialog1.FileName);
end;