这段Delphi语言如何用成C#实现？

[gaoshifengsir]

procedure TForm1.Button10Click(Sender: TObject);
var vstring:string;
vstr:array[0..19] of char;
i:integer;
begin

strpcopy(vstr,'*ZhZ*');
vstring:='';

for i:=0 to 19 do
begin
if trim(vstr[i])<>'' then
begin
vstring:=vstring+chr((word(vstr[i]) shr 1)-3);
end;
end;

vstring:=copy(trim(vstring),2,length(trim(vstring))-2);

end;