procedure TF1Card1.FormShow(Sender: TObject);
begin
//文本框获得焦点
RzEditSn.setfocus;
end;

RzEditSn：文本框的名称