Program SYM;//シンボル貼り付け
var
X, Y, ANGLE : double;
N : string;
Begin
AddLabel(140, 20, 80, 13, 'X');
AddLabel(140, 50, 80, 13, 'Y');
AddLabel(140, 80, 80, 13, '角度(A)');
AddLabel(140, 110, 80, 13, 'シンボル名(N)');
AddEdit(1, 230, 20, 50, 21, '');
AddEdit(2, 230, 50, 50, 21, '');
AddEdit(3, 230, 80, 50, 21, '');
AddEdit(4, 230, 110, 50, 21, '');
If ShowDlg(300, 180,'シンボル') <> True Then
Exit;
X := StrToFloat(GetDlgText(1));
Y := StrToFloat(GetDlgText(2));
ANGLE := StrToFloat(GetDlgText(3));
N:=GetDlgText(4);
Symbol(X,Y, ANGLE,3.2,N);
end.

添付プログラムを参考にして下さい。
エラーが出ていたのは、エラー行の末尾に全角スペースが入っていたようです。
また、解らない所は遠慮無く聞いて下さい。