Net Send в цикле, Помогите реализовать Опции

[Atreides]

Народ, подскажите, как реализовать тут одну идейку? Я тут вот написал приложение, которое при нажатии кнопки запускает цикл из 25 шагов, в котором с перерывом в 10000 миллисекунд отправляется сообщение на адрес 192.***.*.***:

Код

var
i:integer;
begin
for i:=0 to 25 do
begin
WinExec('NET SEND 192.***.*.*** текст сообщения',SW_SHOW);
sleep(1000);
end;
end;
end;

Но есть одно неудобство если нужно сменить адрес или изменить сообщение, то приходиться каждый раз менять код. А я хочу сделать, так что бы сообщение с адресом компа можно было вводить в строке типа Edit и желательно что бы net send уже сразу прописывалось в строке, после чего при нажатии на кнопку сообщение отправлялось и можно дальше писать другому адресату , но, не зная как это реализовать?