请教

Question

1。为什么在编译字体对话框时，有procedure TEditForm Font1Click(Sender:TObject);就出错。
2。with Sender as TFindDiaalog do 中的with as do 怎么用的这句什么意思？
3。object pascal 编译器哪里有下。
4。Ansi CompareText(Memo1，SelText，FindText)=0什么意思，要定义吗？
5。frReplaceAll in option什么意思，in是怎么用的？
6.try  finally什么意思，怎么用

Answer 1

function CompareText(const S1, S2: string): Integer  
比较两个str是否相同，use sysutils
frReplaceAll in option  :在option里选中frReplaceAll为true