versch. int an server senden

[the_seed]

function splitOutIndex(Source: String; Delimiter: String; Index: Integer): String;
var count, number: Integer;
giveback: String;
begin
count := 1;
number := 0;
giveback := '';
while count <= length(Source) do \\???
begin
if copy(Source, count, length(Delimiter)) = Delimiter then
begin
number := number + 1;
count := count + length(Delimiter);
end else begin
if number = Index then giveback := giveback + Source[count]; \\???
count := count + 1;
end;
end;
result := giveback;
end;

[...]
begin
k:=aThread.Connection.Readln;
k1 := splitOutIndex(k, '#', 0); \\für was steht das splitoutindex ???
k2 := splitOutIndex(k, '#', 1);
k3 := splitOutIndex(k, '#', 2);
end; #




die og. dinge versteh ich net, wenn ich ne function od. procedure reinnehm kommt immer irgend ne fehler meldung.
-------------------------------------------------
zb.

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var m:string;
kg:pansichar;
begin

m:=m := aThread.Connection.Readln;
kg:=pansichar(mg);

if u='a' then application.messagebox( kg,'Information',49)
else

if u='b' then application.messagebox( kg,'Frage',36)
else

if u='c' then application.messagebox( kg,'Warnung',48)
else
...
wie geht das das ich in den ablauf ne function od. procedure reinbau ?