@reminder2k1: Klo gw sih biasanya pake event OnChange & OnExit... Nah situ tulis aja di OnChangenya harus ada variable yang nampung nilai dari Edit1nya... Misalnya:

try
   Nilai:=StrToFloat(Edit1.Text)
except
end;

Trs di event OnExitnya:

  Edit1.Text:=CurrToStrF(Nilai,ffCurrency,19,2);

procedure TForm1.Edit1Exit(Sender: TObject);
var
  Nilai, Code: integer;
begin
  Val(Edit1.Text,Nilai,Code);
  Edit1.Text:=FormatFloat('#,##0',Nilai); // atw format pke digit desimal '#,##0.00'
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (((Key>=#48) and (Key<=#57)) or (Key=#8)) then
    Key:=#0;
end;