procedure TForm1.Button3Click(Sender: TObject);<br>var<br> str, stemp: string;<br> i, j : Integer;<br>begin<br> str := 'ABCDEFGHJ';<br> i := length(str);<br> J := i-4;<br> while i >J do<br> begin<br> stemp := str+stemp; <br> i := i-1;<br> end;<br> ShowMessage(stemp);<br>end;