[Кодер]

procedure TApplication01.FormCreate(Sender: TObject);
var
i, i1: integer;
s, s1: string;
begin
Solutions.Visible:=False;
Solutions.Enabled:=false;
Solutions.Items.LoadFromFile('solutions\z-games.sys');
Cheats.Items.LoadFromFile('cheats\z-games.sys');
i:=Solutions.Count;
s:=i(IntToStr);
i1:=Solutions.Count;
s1:=i1(IntToStr);
Memo1.Lines.Add('На данный момент в нашей базе данных кодов и прохождений:');
Memo1.Lines.Add('Прохождений: к '+s+' играм');
Memo1.Lines.Add('Кодов: к '+s1+' играм');
end;

Шутник)) А не пробывал так?

Код:

procedure TApplication01.FormCreate(Sender: TObject);
var
i, i1: integer;
s, s1: string;
begin
Solutions.Visible:=False;
Solutions.Enabled:=false;
Solutions.Items.LoadFromFile('solutions\z-games.sys');
Cheats.Items.LoadFromFile('cheats\z-games.sys');
i:=Solutions.Count;
s:=IntToStr(i);
i1:=Solutions.Count;
s1:=IntToStr(i1);
Memo1.Lines.Add('На данный момент в нашей базе данных кодов и прохождений:');
Memo1.Lines.Add('Прохождений: к '+s+' играм');
Memo1.Lines.Add('Кодов: к '+s1+' играм');
end;