Theists - what convinced you?

[Darwinian]

Yup..

Code:

var
  target, output, tmp: string; a: word; cnt: longint;

begin
  target:='Far out in the uncharted backwaters of the unfashionable end of the western spiral arm of the galaxy';

  cnt:=0; output:=''; a:=0;

  while a<=length(target)-1 do begin
    tmp:=chr(32+Random(94)); inc(cnt);

    if Copy(target,a+1,1)=tmp then begin
      output:=output+tmp; inc(a);
    end;
  end;

  Label1.Caption:='Target string '+target+' found after '+IntToStr(cnt)+' attempts..';
end;

This is fun isn't it.....

Far out in the uncharted backwaters of the unfashionable end of the western spiral arm of the galaxy found in 8662 attempts

Edit: Oops, forgot the ability to choose.. Hang on a mo..