Преобразование денежной суммы, заданной в виде дробного числа, в формат «рубли – копейки»

procedure TFormMain.ButtonConvertClick(Sender: TObject);
Var
 I:Real;
begin
     try
     I:=StrToFloat(EditS.Text);
     Except On EConvertError do
        begin
          ShowMessage('Îøèáêà äàííûõ');
          Exit;
        end;
      end;
 EditR.Text:=FloatToStr(Trunc(i)); //âûäåëÿåì öåëóþ
 EditK.Text:=FloatToStr(Frac(i));//âûäåëÿåì äðîáíóþ
end;
 
procedure TFormMain.EditSKeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['.',','] then Key:=DecimalSeparator;//ставим системный десятичный разделитель
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TFormMain = class(TForm)
    LabelTitle: TLabel;
    LabelS: TLabel;
    LabelRes: TLabel;
    LabelR: TLabel;
    LabelK: TLabel;
    EditS: TEdit;
    EditR: TEdit;
    EditK: TEdit;
    ButtonConvert: TButton;
    procedure ButtonConvertClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FormMain: TFormMain;
 
implementation
 
{$R *.dfm}
var
 r,k:Integer;
 s:Real;
 
procedure TFormMain.ButtonConvertClick(Sender: TObject);
begin
 //EditR.Text :='рубли';
 //EditK.Text :='копейки' ;
 
 
try
// операторы, выполнение которых может вызвать ошибку
     //из строки в дробное число
  s:=StrToFloat(EditS.Text);
     //определение количества рублей и копеек
  r:=round(s*100) div 100;
  k:=round(s*100) mod 100;
    //из количества рублей в строку
  EditR.Text := IntToStr(r);
   //из количества копеек в строку
  EditK.Text := IntToStr(k);
except
    //обработка исключений
 on EO: EConvertError do
              ShowMessage('Oшибка преобразования типа!'+ #13 +EO.Message);
 else ShowMessage ('Неизвестная ошибка!')
end;
end;
 
procedure TFormMain.FormCreate(Sender: TObject);
begin
 
end;
 
end.