请教自定义函数问题(50分)

{声明}
function sendTeleport(pos:string):string;
{实现代码}
function sendTeleport(pos:string):string;
var
Location:string; //Location=位置
begin
Location:='';
if length(pos)>16 then location:=copy(pos,1,16)
else
location:=pos;
Result:=chr($1B)+chr(1)+chr($1A)+chr(0)+
location+fchar(chr(0),16-length(location));
end;
不知道这个是属于哪类问题，不过程序是游戏内挂，上面是程序的代码，我想在按下tele按钮后使用sendTeleport这个函数请问要怎么做？

procedure TForm1.teleClick(Sender: TObject);
begin
showmessage(sendTeleport('这是一段测试文本'));
end;

不好意思，还少发了个函数，这两个函数好像要配合使用的
{声明}
function SendSocket(s:string):string;
{实现代码}
function SendSocket(s:string):string;
begin
if Form1.Winsock1.State=7 then
Form1.Winsock1.SendData(STA(s));
end;

代码好像需要这个函数配合一起用的
SendSocket(sendTeleport(？));
类似这样

function SendSocket(s:string):string;
begin
if Form1.Winsock1.State=7 then
Form1.Winsock1.SendData(STA(s));
end;

这个函数是用来连接的,s:string 是连接的信息,具体内容就要看你的程序是怎么写的.不外就是IP和端口这类信息.

感谢回答，问题解决，拜谢给分，