[MrDiG]

Так?

Код:

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string;
  var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
var 
mystr,s:string;
begin
mystr:=Copy(s,AnsiPos('PHPSESSID=',s)+10,32);
end;

А не ли варианта вроде:
if HTTP.OnRedirect then
...

?