For an empty line you can use Memo1.Lines.Add('').

Line 3 and 4 should use this method too, because they are strings. Lines 1 and 2 add a TStrings object (a collection of strings).

Try it on paper. Write the values down. Then change them as you walk through each loop (in your head).

The way I read this, is that you need to calculate the value of the variable (evens). Just follow the source code in your head, or on paper, and do as it instructs.

I don't see output in the...

Is it required to see those lines as they are generated. If you could send them to a file, you can speed it up. The memo is really awful for this amount of data.

Also, the processmessages slows...

Correct. Labels must start with a character, not a number. Add a prefix to the 200, like:

label200:

and change the references in the code.

end . should be end. (remove the space)

Not sure about the first error. Could it be triggered by the $N switch error ? Look for {$N} and remove it (at the top).

var
sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile(yourtextfilehere.txt);
ShowMessage(sl[Random(sl.Count)]);
sl.Free;
end;

If you load your strings into a tstringlist, then you can use the random function to select a random line.

Show what you have so far.

What do you have so far ?

Ofcourse. Just declare one integer, call randomize and then random.

const
myarray: array [0..9] of Integer = (10, 20, 30, 40, 50, 60, 70, 80, 90, 100);
begin
Randomize;
Writeln(myarray[Random(10)]);
end;

What have you got so far ? A normal windows application or a console application ?

If you have the former, then you can put a label, button and editbox on a form and start from there.

What is the problem ? The pseudo code is as it should be. You only have to replace it with actual statements.

The string (Directory) in the record is causing your problem. You'll need to change it to e.g. string[30]. string may not appear in a typed file, since it's length is undetermined.

In the OnClick event there's Sender. That refers to the clicked button, so you can use


TButton(Self).Color := clYellow;