Помогите написать программу pascal abc Удвоить все цифры, содержащиеся в строке.

for i := 1 to length(stroka) ord(stroka)*2

procedure TfrmMain.btn1Click(Sender: TObject);
var data: string;
i, j: integer;
s: string;
begin
data:='1a2b3c4d5';
s:='';
for i := 1 to length(data) do
if TryStrToInt(data,j) then
s:=s+IntToStr(j*2)
else
s:=s+Data;
Data:=s;
end;