Создание динамической ссылки.

[waterya]

Пожалуйста помогите создать динамическую ссылку. Она должна работать так - В Edit1 я пишу слово. Потом я его определяю в переменную stat

procedure TForm1.Edit1Change(Sender: TObject);
begin
stat:= Copy(edit1.text, 1, Pos(' ',edit1.Text)-1);
end;

Теперь мне надо создать такую ссылку, что бы в конце нее появилось слово определенное из переменной. Например -

www.sait.ru/stat

[MaxNik2009]

может так:

const
  MySite = 'www.sait.ru'; // название твоего сайта

procedure TForm1.Edit1Change(Sender: TObject);
var
  Mylink: string; // новая ссылка
begin
stat:= Copy(edit1.text, 1, Pos(' ',edit1.Text)-1);
Mylink:= MySite + '/' + stat; // www.sait.ru/stat
end;

[waterya]

Сообщение от MaxNik2009

может так:

const
  MySite = 'www.sait.ru'; // название твоего сайта

procedure TForm1.Edit1Change(Sender: TObject);
var
  Mylink: string; // новая ссылка
begin
stat:= Copy(edit1.text, 1, Pos(' ',edit1.Text)-1);
Mylink:= MySite + '/' + stat; // www.sait.ru/stat
end;

Спасибо огромное. Вы гений. Просто гений! Без сарказма. Мало того, что я вспомнил как работать с переменными так у меня в голове и вспомнилась shell executor вместе с переменными а не с указанием на сайт. Огромное спасибо за помощи в проекте