Gem med savedialog

jeg ved ikke om i kan se hvad det er jeg vil ud fra min kode, men forklare det lige. har et filter med nogle fil endelser, og jeg skal gemme med den valgte fil endelse. koden giver den rigtige filendelse, men den gemmer ikke på den rigige måde?? den køre det der står i DefaultExt = '1' men giver den valgte fil endelse?!?
f.eks jeg gemmer mit dokument som *.123 men den køre det kode der står i DefaultExt = '3'

SaveDialog.Filter := 'Text fil|*.txt|HTML|*.htm|Andet|*.123';
SaveDialog.DefaultExt := IntToStr(Savedialog.FilterIndex);

if savedialog.Execute then
begin
    if SaveDialog.DefaultExt = '1' then
    begin
    //kode til at gemme på måde 1
    showmessage('*.txt');
    end;

    if SaveDialog.DefaultExt = '2' then
    begin
    //kode til at gemme på måde 2
    showmessage('*.htm');
    end;

    if SaveDialog.DefaultExt = '3' then
    begin
    //kode til at gemme på måde 3
    showmessage('*.123');
    end;
end;