[AlexSku]

А откуда эта директива взялась? В том смысле, её же просто надо отменить. У меня всё проходит, расширение 5 символов без обрезки:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.SaveToFile('1.12345');
end;