Как то вы обработку события делаете странновато, к тому-же вы открывать должны, а не добавлять. Вот так не проще?
Код:
procedure TPost.btn4Click(Sender: TObject);
begin
if not dlgOpen1.Execute then Exit;
WA:=CreateOleObject('Word.Application');
WA.Visible:=True;
WA.DisplayAlerts:=True;
WA.Documents.Open(dlgOpen1.FileName);
end;