[Страдалецъ]

1. Изменить вид курсора для TEdit несложно, там для этого есть свойство Cursor. Изменять вид курсора в зависимости от положения в самом TEdit уже сложнее, но тоже можно:

Код:

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (X in [Edit1.ClientRect.Left..Edit1.ClientRect.Left+20]) and
    (Y in [Edit1.ClientRect.Top..Edit1.ClientRect.Top+20])
  then Edit1.Cursor := crHandPoint
  else Edit1.Cursor := crDefault
end;