如何才能实现找到动态数组中的最大值

怎么才能实现找到动态数组中的最大值
怎么才能实现找到动态数组中的最大值，请给举例说明？

------解决方案--------------------
数组排序实例 放入 TStringList 排序 


一种简单的方法：
Procedure TForm1.BitBtn1Click(Sender: TObject);
Var
alist: TStringList;
Begin
alist := TStringList.Create;
Try
alist.Add('AAA');
alist.Add('BBB');
alist.Add('CCC');
alist.Add('EEE');
alist.Add('DDD');
Application.MessageBox(PChar(alist.Text), '排序前' ,64);
alist.Sort;
Application.MessageBox(PChar(alist.Text), '排序后' ,64);
Finally
alist.Clear;
alist.Free;
End;
End;