Поменять расширение файла

[TheSun]

Как сделать чтобы результат сохранялся в txt файле? помогите пожалуйста. Имя файла должно совпадать с вводимым именем

procedure TForm1.Button9Click(Sender: TObject);
Var SL:TStringList;
    I:Byte;
    FileName:TFileName;
begin
FileName:=UserName;
SL:=TStringList.Create();
 Begin
 If FileExists(FileName) Then
 Begin
  SL.LoadFromFile(FileName);
  SL.Add('----------------');
 End;
 For I:=1 To 4 Do
 SL.Add(Types[I]+' '+IntToStr(Ans[I]));
 SL.SaveToFile(FileName);
 ShowMessage('Данные соохранены успешно');
 end;
SL.Free;
end;

[veniside]

FileName:=UserName + '.txt';