简单的技术问题！！请诸位大大帮帮忙

Question

1.在编辑框内输入数字时自动给数字添加千分符，并使数字数字显示在编辑框的右边
    最好有代码  谢谢
2.在窗体内放置9个edit控件，我想用up，down，left，right控制游标在这几个edit控件之间移动（类似在excel表中每个小格移动），最好有全代码，谢谢3.还有怎样才能赚到积分

Answer 1

3.还有怎样才能赚到积分
==========================================
回答另人问题且正确（不一定）且别人给你分（专家分）：P
可用分是每天上CSDN就会有。

Answer 2

不会就不会，少在那装蒜，自己答：
 function qff(str:string):string;
  var
  s:real;
  len:integer;
 begin
    s:=strtofloat(str);
    str:=format('%m',[s]);
    len:=length(str);
    str:=copy(str,3,len);
    qff:= str;
 end ;
procedure TForm1.Edit1Exit(Sender: TObject);begin  a:=strtofloat(edit1.text);
  edit1.Text:=qff((sender as TEdit).text);;  end;