限制edit里面只能输入H开头的内容，delphi如何实现？

简单点
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Edit1.SelStart=0) and (key<>#72) then
begin
Key:=#0;
ShowMessage('必须以字母H开头');
end;
end;

在此Edit的Change里面设置如下
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Trim(Edit1.Text) <> '') and (Copy(Trim(Edit1.Text),1,1) <> 'H') then
begin
ShowMessage('请输入以H开始的语句!');
Edit1.Text := '';
end;
end;

也可以用LeftStr((Trim(Edit1.Text),1)来代替Copy(Trim(Edit1.Text),1,1)
不过要在接口部分
uses
StrUtils;