想请教，如何模拟键盘输入'φ'这个字符呢？

Question

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_F1: begin
      Clipboard.AsText := 'φ';
      SendKey(VK_V, [ssCtrl]); //Ctrl+V
    end;
  end;
end;

Answer 1

const
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
  VK_0 = $30;  VK_1 = $31;  VK_2 = $32;  VK_3 = $33;  VK_4 = $34;
  VK_5 = $35;  VK_6 = $36;  VK_7 = $37;  VK_8 = $38;  VK_9 = $39;{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
  VK_A = $41;  VK_B = $42;  VK_C = $43;  VK_D = $44;
  VK_E = $45;  VK_F = $46;  VK_G = $47;  VK_H = $48;
  VK_I = $49;  VK_J = $4A;  VK_K = $4B;  VK_L = $4C;  VK_M = $4D;  VK_N = $4E;
  VK_O = $4F;  VK_P = $50;  VK_Q = $51;  VK_R = $52;  VK_S = $53;  VK_T = $54;
  VK_U = $55;  VK_V = $56;  VK_W = $57;  VK_X = $58;  VK_Y = $59;  VK_Z = $5A ;