>>539
うろ覚えだけど、ドロップダウンリストの時はTextプロパティを設定できなかったような。
つーことは、

var
　iIndex : Integer;
　sString : String;
begin
　sString := '国語';
　ComboBox1.ItemIndex := 0;　　　　//念のため

　For iIndex:=0 To ComboBox1.Items.Count begin
　　if(sString=ComboBox1.Items[iIndex]) then begin
　　　ComboBox1.ItemIndex := iIndex;
　　　Break;
　　end;
　end;
end;

こんな感じか？