Проверка файла на наличие

 begin
    fName := ChangeFileExt(OpenDialog1.FileName, '.result');
    // задает файлу расширение result
    dL := TStringList.Create;
    sL := TStringList.Create;
    for i := 0 to StringGrid1.RowCount - 1 do
    begin
      StringGrid1.Rows[i].Delimiter := #9;
      if TryStrToInt(StringGrid1.Cells[0, i], tmp) then
        dL.Add(StringGrid1.Rows[i].DelimitedText)
      else
        sL.Add(StringGrid1.Rows[i].DelimitedText);
    end;
    if sL.Count > 1 then
      sL.Sort;
    if dL.Count > 1 then
      dL.CustomSort(DigitSort);
    slFile.Text := dL.Text;
    for i := 0 to sL.Count - 1 do
      slFile.Add(sL.Strings[i]);
    if FileExists(fName) then
    begin
      slFile.SaveToFile(fName);
    end
    else
    begin
      ShowMessage('Файл с таким именем уже существует');
    end
  end;
end;

   if FileExists(fName) then

if FileExists(fName+'.txt') then

 if FileExists(fName+'.result') then
    begin
      ShowMessage('Файл с таким именем уже существует');
    end
    else
    begin
      slFile.SaveToFile(fName);
    end

if fName='' then

if not OpenDialog1.Execute then Exit;
 fName := ChangeFileExt(OpenDialog1.FileName, '.ext');
 if FileExists(fName)
  then begin
         ShowMessage('Exists');
         //Действия, если файл существует
       end
 else begin
        ShowMessage('Not Exists');
        //Действия, если файл не существует
      end;

fName := ChangeFileExt(OpenDialog1.FileName, '.ext');