Ayuda para traducir código PHP a Delphi

[FideRosado]

me he encontrado con algo que me resulta util en php y kisiera cambiarlo a delphi..

Código PHP:

function clearuserdom($mail){
    $os = substr_count($mail , '<');
    switch ($os) {
    case 0:
        return $mail;
        break;
    case 1:
    $charc = array( "<" , ">");
    $chard = array( "","");
    $ct += substr_count( $mail , "<" );
    $ct += substr_count( $mail , ">" );
        $s1 = explode( "<" , $mail );
        $s2 = $s1[1];
        if( $s1 > 0 ){
            for ($sd4 = 0; $sd4 < $ct; $sd4++){
                $mail = str_replace( $charc ,$chard, $s2 );
            }
        }
        return $mail;
        break;
    }
} 


[Casimiro Notevi]

Muy bien, luego compartes el código que veamos

[FideRosado]

esto s para que cambien entre el nombre del correo u el correo solamente

Código Delphi [-]
function ClearMailDomain( mail:string; vindex:integer ):string;
var
os:integer;
df,kj:string;
begin
    os := CharCount( mail , '<');

     if os = 0 then begin
      result:=mail;
     end;

     if os = 1 then begin
        kj:= GetToken( mail , '<', vindex );
        df:= CambiaEn( kj , '>' , '' );
        result:= df;
     end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( ClearMailDomain( 'nombre del usuario ',2) );
end;

aca el numero elije a quien te entrega..(1, 2)