Escribir numeros

[marcoszorrilla]

Te voy a dar una idea, aunque creo que tendrás que desarrollarla un poco más:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if pos(',',edit1.text) = 0 then
 Try
 Edit1.Text:=FormatFloat(',0.00',StrToInt(Edit1.Text) / 100);
 except
 end;
end;

Un Saludo.