函数返回指针问题

Question

且看以下代码TClient =Class(TComponent)
public
    ...
endPTClient = ^TClient;ClientList: TObjectList; //存放TClient的多个实例
ClientList.Add(TClient.Create);
ClientList.Add(TClient.Create);function TService_Provider.LocateClient(SocketID:Cardinal):PTClient; //返回指针
var
  i:integer;
begin
  i:=0;
  result ^:= TClient(ClientList[i]);//这里返回第一个实例，编译是成功的，但是运行时出现异常！！！！！请问还有什么好的写法吗？
end;

Answer 1

if ClientList[i] is TClient then
   result ^:= TClient(ClientList[i]);

Answer 2

result := PTClient(ClientList[i]);

Answer 3

GetMem(result,sizeof(result));
result^ := TClient(ClientList[i]);