新手问题 在线等待谢谢

Question

请问如何定义一个方法，及如何引用，请写一下格式谢谢

Answer 1

function TMainFm.MyInputQuery(const ACaption, APrompt: string;
  var Value: string): Boolean;
  function MyGetAveCharSize(Canvas: TCanvas): TPoint;
  var
    I: Integer;
    Buffer: array[0..51] of Char;
  begin
    for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A'));
    for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a'));
    GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
    Result.X := Result.X div 52;
  end;定义后这函数属于那个组件，在组件的操作中就能用