{*********************************************
**  Panel1 のコントロールから名前の合致する
**  TEdit のコントロールを返す。
**  なければ nil を返す。
**     cname:string  コントロールの名前　例 Edit11
**********************************************}
function TForm1.find_Editc(cname:string):TControl;
 var
  i:integer;
  Ctrl:TControl;
  flg : boolean;
begin
  flg := False;
  Ctrl := nil;
  for i := 0 to Panel1.ControlCount-1 do
    begin
      Ctrl := Panel1.Controls[i];
      if Ctrl.ClassName = 'TEdit' then
        if TEdit(Ctrl).Name = cname then
          begin
           flg := true;
           break;
          end;
    end;

  if flg then
    result := Ctrl
  else
    result := nil;

end;