Два в одном

[ZhekON]

Вопрос:
1.Как зделать так, чтобы при нажатии на TImage открывалася страница сайта(например в Internet Explorer)?
2.Как перемистить курсор в TMemo в определённый ряд и номер буквы чтобы потом выделить слово которое находится после этой буквы?(как выделить слово я тожэ не знаю )

[And1]

uses ShellApi;
---------------
procedure TForm1.Image1Click(Sender: TObject);
begin
ShellExecute(Form1.Handle,nil,'http ://www.programmersforum.ru',Nil,nil,SW _ShowDefault);
end;

Установка курсора в нужную позицию:

Если ничего не путаю, то: этот пример НЕ будет работать в Delphi5,но БУДЕТ работать в Delphi7, потому что в Delphi7 свойство CaretPos доступно для записи, а в Delphi5 нет (сейчас у меня нет под рукой Delphi7 - пишу по памяти, так как сам не так давно возился с TMemo - так что если ошибаюсь, то извиняюсь).

procedure TForm1.Button1Click(Sender: TObject);
var LinePos,strPos:Integer;
begin
LinePos:=5;//задаём строку №6
strPos:= 1;//задаём символ в строке = 2
if Memo1.Lines.Count <= LinePos then
exit;//Если такой строки нет, то выходим
if Length(Memo1.Lines[LinePos]) <= strPos then
exit;//Если строка короче чем strPos, то выходим
Memo1.CaretPos:=Point(strPos,LinePo s);//Устанавливаем позицию курсора
end;

Однако это прокатит только если общая длина текста в Memo.Text не превышает 64kb, если текст длиннее нужно использовать TRichEdit вместо TMemo.