VB -> Delphi Set

[M. Halter]

Hello *.*,

im Moment stehe ich vor der Aufgabe, einige VB-Tools nach Delphi 5 zu portieren. Die Tools selbst nutzen einen OLE-Server, nämlich OL2000.<BR> <BR>
Da habe ich jetzt auch genau mein Problem. Wie bildet man den Befehl Set in delphi ab, also wie würde nachstehende Routine richtig übersetzt?
<BR> <BR>
Private Sub Application_Startup()<BR>
Dim objNS As NameSpace<BR>
<BR>
Set objNS = Application.GetNamespace("MAPI")<BR>
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items<BR>
Set objNS = Nothing<BR>
<BR>
End Sub<BR>
<BR>
Danke für die Hilfe<BR>
<BR>
Mark<BR>

[M. Halter]

OK, hat sich wohl erledigt.<BR>
<BR>
Ab und zu sollte man halt vor dem Posten nachdenken. Ich denke so sollte es gehen.<BR>
<BR>
procedure Application_Startup()<BR>
var<BR>
objNS: NameSpace;<BR>
begin<BR>
objNS := OutlookApplication1.GetNamespace('MAPI');<BR>
olInboxItems := objNS.GetDefaultFolder(olFolderInbox).Items;<BR>
end;<BR&gt