работа со словом в Delphi

[grom333]

а обязательно в edit?

[MaxNik2009]

в edit1 тоже нельзя но в RichEdite можно
выглядеть будет примерно так:
var

 s, s1: string;
  i: Integer;
begin
  s:= 'ПонЕДЕЛьнИК';
  for i:= 1 to Length(s) do
  begin
    if odd(i) then
      s1:= AnsiLowerCase(s[i])
    else
      s1:= AnsiUpperCase(s[i]);
    s[i]:= s1[1];
  end;

  RichEdit1.Lines.Text:= s;

  for i:= 1 to Length(s) do
  begin
    if odd(i) then
    begin

      RichEdit1.SelStart:= i;
      RichEdit1.SelLength:= 1;
      RichEdit1.SelAttributes.Style:= [fsItalic];

    end;

  end;

[Vova8888]

а прописными четные буквы в слове можно сделать

[MaxNik2009]

Сообщение от Vova8888

а прописными четные буквы в слове можно сделать

делай конечно, мне не жалко...
а если серьезно:

 s, s1: string;
  i: Integer;
begin
  s:= 'ПонЕДЕЛьнИК';
  for i:= 1 to Length(s) do
  begin
    if odd(i) then
      s1:= AnsiLowerCase(s[i])
    else
      s1:= AnsiUpperCase(s[i]);
    s[i]:= s1[1];
  end;

  RichEdit1.Lines.Text:= s;

  for i:= 1 to Length(s) do
  begin
    if not odd(i) then
    begin

      RichEdit1.SelStart:= i;
      RichEdit1.SelLength:= 1;
      RichEdit1.SelAttributes.Style:= [fsItalic];

    end;

  end;

[Utkin]

При желании можно настроить RichEdit так, чтобы он выглядел и вел себя аналогично Edit'у.