function Split(Input: string; Deliminator: string; Index: integer): string;
begin
if pos(Deliminator,Input) <>0 then
begin
if Index=1 then
Result:=Trim(copy(Input,1,pos(Deliminator,Input)-1))
else
Result:=Trim(copy(Input,pos(Deliminator,Input)+1,255));
end
else
begin
if Index=1 then
Result:=Trim(Input)
else
Result:='';
end;
end;
 
 
a.text:=Split(GTOPLAM.Text, ',', 1);
b.text:=Split(GTOPLAM.Text, ',', 2);