Hi Derek, Константин
procedure getpiece (Sender: TObject);
begin
if form1.edit1.Value <= form1.edit2.value then
begin
form1.edit3.text := replacestr(form1.edit1.text, decimalseparator, '.');
form1.edit4.text := replacestr(form1.edit2.text, decimalseparator, '.');
end else
begin
form1.edit3.text := replacestr(form1.edit2.text, decimalseparator, '.');
form1.edit4.text := replacestr(form1.edit1.text, decimalseparator, '.');
end;
end;