Arredondamento de valores

Vou publicar uma função muito importante,
pois ela arredonda os valores com casas decimais,
ja que não existe nenhuma similar no delphi:

function Arredonda(Valor: Double; Dec: Integer): Double;
var
Valor1,
Numero1,
Numero2,
Numero3: Double;
begin
Valor1:=Exp(Ln(10) * (Dec + 1));
Numero1:=Int(Valor * Valor1);
Numero2:=(Numero1 / 10);
Numero3:=Round(Numero2);
Result:=(Numero3 / (Exp(Ln(10) * Dec)));
end;

Validar edits para moeda sem usar maskedit

Basta inserir este comando no edit.keypress:

if not(key in['0'..'9',',',#8]) then key:=#0;

Enter por tab

Vou começar postando uma dica de delphi que,
apesar de simples é muito útil no dia-a-dia

// Este código deve ser colocado no onkeypress de qualquer form
// A propriedade Keypreview do form de ser setada para true

if key= #13 then
begin
perform(cm_dialogkey,vk_tab,0);
key:=#0;
end;
if key= #27 then close; // opcional somente se vc quiser fechar a tela com Esc.