store procedure

[gigikra]

Buenos dias, necesito transformar la sigueinte funcion en un store procedures para sql server. por favor, me ayudan??

function AzaleaI2of5(var I2of5number: String): String;
var
I: Integer;
temp: String;

temp2: String;
chunk: String;

begin

If (Length(I2of5number) Mod 2) <> 0 Then
I2of5number := '0' + I2of5number;

temp2 := I2of5number;

For I := 1 To Length(I2of5number) div 2 do
begin
chunk := temp2;
delete(chunk, 3, length(chunk));

If StrToInt(chunk) < 90 Then

temp := temp + Chr(StrToInt(chunk) + 33)
Else
temp := temp + Chr(StrToInt(chunk) + 71);

delete(temp2, 1, 2)
end;

//add the start and stop bars (ASCII 171 & ASCII 172)

AzaleaI2of5 := Chr(171) + temp + Chr(172)

end;