[F.o.x.]

1) как пр.описать, что б курсор всегда имел crHandPoint

Добавить в конструктор компонента:

Код:

Cursor:=crHandPoint;

2)Ссылка подкрашивается красным тока в момент клика (сделать чтоб подкрашивалась когда курсор над ссылкой висит)

Код:

procedure TLink.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:
  Integer);
begin
  if Button = mbLeft then FLinkColor := Font.Color;
  inherited;
end;

procedure TLink.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:
  Integer);
begin
  if Button = mbLeft then Font.Color := FVLinkColor;
  inherited;
end;

procedure TLink.MouseLeave;
begin
  Font.Color := FLinkColor;
  inherited;
end;

3)как поменять иконку ? Что б в палитре отличалась от простого лейбла

Создать в делфийском ImageEditor`е свой dcr-файл с bitmap ресурсом своей картинки 24x24 пиксела x 256 бит (имя самого ресурса должно совпадать с именем класса компонента). Подключить этот файл в секции implementation

Код:

{$R ИмяФайла.dcr}

Левый верхний (или нижний?) пиксел bitmap`а считается фоновым цветом - т.е. прозрачным.
Если ИмяФайла совпадает с именем модуля, то ИмяФайла можно заменить на *
Если компонент в отдельном пакете, то лучше перенести подключение dcr непосредственно в dpk-файл.