Problem mit fileupload - mal gehts mal nicht!?

[quakergod]

hi, ich hab einem Problem mit diesem Code:

Delphi-Quellcode:

procedure TForm1.FillUploadform;
var
  Doc: IHTMLDocument2;
  Elements: IHTMLElementCollection;
  Element: IHTMLElement;
  InputElement: IHTMLInputElement;
  I, j: Integer;
  FormItem: Variant;
  pch: PChar;
  str1, Value: string;

begin
  value := dateipfad;
  str1 := Value; //convert input value to string
  pch := PChar(str1); //type cast to pointer
  I := 1;
  Doc := WebBrowser1.Document as IHTMLDocument2;
  Elements := Doc.all;
  for I := 0 to Elements.length - 1 do
  begin
    Element := Elements.item(I, EmptyParam) as IHtmlElement;
    if Element.tagName = 'INPUT' then
    begin
      InputElement := Element as IHTMLInputElement;
      if (SameText(InputElement.type_, 'file')) and
        (SameText(InputElement.Name, 'fileupload')) then
      begin
        FormItem := InputElement;
        FormItem.Focus;
        SendKeys(PCh, False); // NOTE the false flag
      end;
    end;
  end;
end;

dieses HTML Element benutze ich:

Code:

<input type="file" name="fileupload" class="textfield" size="30">

jetzt ist es aber so das das script nur manchmal funktioniert, nicht immer was ins fileupload feld geschrieben wird!?

kennt jemand das Problem und weiss wie man das ändern kann?
wäre echt nett, danke!