问个关于edt显示的问题

Question

怎么实现图片的文件，请高手帮我分析分析~

Answer 1

图片地址：http://hiphotos.baidu.com/744600600/pic/item/1a3334124c21a6d5c2fd7878.jpg 如何做出图片里的东东

Answer 2

{仅限A1至A9，如果A后同可以跟两位以上的数，以下方法就要改了}var
  SS: TStringList;procedure TForm1.Edit1Change(Sender: TObject);
var
  I: integer;
begin
  Edit2.Text := '';
  I := 1;
  while I<Length(Edit1.Text) do begin
    Edit2.Text := Edit2.Text + SS.Values[Edit1.Text[I]+Edit1.Text[I+1]];
    Inc(I, 2);
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  SS := TStringList.Create;
  SS.Add('A1=01');
  SS.Add('A2=02');
  SS.Add('A3=03');
  SS.Add('A4=04');
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  SS.Free;
end;

Answer 3

^_^
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit2.Text := StringReplace(Edit1.Text, 'A', '0', [rfReplaceAll]);
end;

Answer 4

再补充一下，要用delphi7.0设计，总计60条对应数据，
设计图地址：http://hiphotos.baidu.com/744600600/pic/item/1a3334124c21a6d5c2fd7878.jpg
请高手帮我写段代码，最好能有步骤