помогите программисты!) delphi 7

тебе только до 2-х букв?
блин не понял результат какой должен быть у меня такой:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz
или другой, я не совсем понял,
короче вот код, переделай под свой как нужно тебе:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:array [1..26] of string[1];
b:array [1..26] of string[1];
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
st:string[26];
ST1:STRING[26];
begin
st:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
ST1:='abcdefghijklmnopqrstuvwxyz';
for i:=1 to 26 do begin
a:=Copy(st,i,1);
b:=Copy(st1,i,1);
end;
for i:=1 to 52 do begin
if i<27 then
Memo1.Text:=Memo1.Text+' '+a
else
Memo1.Text:=Memo1.Text+' '+a[i-26]+b[i-26];
end;
end;

end.

Через рекурсию:

for L := 1 to 10 do { Все комбинации длиной от 1 до 10 символов }
  AddABC(L, '');

Где рекурсивная процедура:

procedure AddABC(L : Byte; S : ShortString);
begin
  if Length(S) = L then
    Memo1.Lines.Add(S)
  else
    for Ch := 'A' to 'Z' do
      AddABC(L, S + Ch);
end;

надо сделать счетчик и выводить кол-во букв в соответствии со значением этого счетчика

//формочки
char smb;
for smb:='a' to 'z' do
write(a,' ');
for smb:='a' to 'z' do
write(UpCase(smb),smb,' ');
//формочки

идею понял? ) С формочками разберешься=)
Что не ясно - спрашивай=)